#!/usr/bin/perl -w

use Gtk2 '-init';
use URI::file;
use utf8;

my $img = Gtk2::Image->new_from_file('trash.png'); # Создаем картинку
   $img->drag_dest_set('all', 'copy');
   $img->drag_dest_add_uri_targets;                
   $img->signal_connect('drag-data-received' => sub             
                        {
                            my($widget, $content, $x, $y, $data, $info, $time) = @_;
                            my $str = $data->data;              # Получаем URI
                            $str = URI->new($str)->file;        # Преобразовываем в имя файла
                            system "rm -rf \"$str\"";            # Удаляем файл
                            return 1;
                        } 
                       );

my $vbox =Gtk2::VBox->new;                                      # Создаем VBox
   $vbox->pack_start($img,0,0,0);                               # Помещаем в него картинку
   $vbox->show_all;

my $main = Gtk2::Window->new('toplevel');                       # Создаем окно
   $main->set_default_size(24, 24);
   $main->set_decorated(0);                                     # Убираем рамку окна
   $main->stick;                                                # Прилепляем окно на все рабочие столы
   $main->set_skip_taskbar_hint(1);                             # Скрываем окно в панели задач
   $main->set_keep_above(1);                                    # Устанавливаем окно поверх остальных
   $main->signal_connect("destroy" => sub{Gtk2->main_quit; });
   $main->add($vbox);                                           # Добавляем на окно VBox
   $main->show_all; 
 
   Gtk2->main;                                                  # Запускаем основной цикл
   0;