#!/usr/bin/perl -w
use strict;
use Gtk2("init");
use Gtk2::TrayIcon;

my $pixbuf = Gtk2::Gdk::Pixbuf->new_from_file("/usr/share/icons/Human/24x24/actions/player_eject.png");
my $icon = Gtk2::Image->new_from_pixbuf($pixbuf);
my $eventbox = Gtk2::EventBox->new;
my $tray = Gtk2::TrayIcon->new("tray_test");

$eventbox->add($icon);
$tray->add($eventbox);
$tray->show_all;

Gtk2->main;