GTK+ tray icon

use Gtk2 -init;
use Gtk2::TrayIcon;

my $tray_icon = Gtk2::TrayIcon -> new('tray_icon');
$tray_icon -> add(Gtk2::Image -> new_from_file('путь/к/файлу'));
$tray_icon -> show_all;
Gtk2 -> main;