view release on metacpan or  search on metacpan

bin/utv_usage_applet.pl  view on Meta::CPAN

		print "Upload  - " . $usage->{"upload"} . "\n";
		print "Download - " . $usage->{"download"} . "\n"; 

		Gtk2->init();
		my $icon = Gtk2::TrayIcon->new( "utv broadband usage notification" );
		$label = Gtk2::Label->new( "loading" );
		$icon->add( $label );
		update_text();
		$icon->show_all;

		Glib::Timeout->add ( 3600000 , \&update_text );
		
		Gtk2->main;
		exit(0);
	}
	else
	{
		print "Failed to get usage :(\n";
		exit(1);
	}
}