#!/usr/bin/perl

use strict;
use warnings;

use Gtk2 '-init';
use Gtk2::TrayIcon;

Gtk2->init;

my ($demo_icon, $demo_pic);

$demo_icon=Gtk2::TrayIcon->new("demo");
$demo_pic=Gtk2::Image->new_from_file("demo.png");
$demo_icon->add($demo_pic);
$demo_icon->show_all;

Gtk2->main;