Help for this page

Select Code to Download


  1. or download this
    my $id = 1;

...
        -name    => "TrayIconMailYes",
        -tip     => "LupoX POP3 Notifier(TM) - YOU HAVE MAIL"
);
  2. or download this
    my %events = (
    512 => sub { print "mouse over icon\n" },
...
if (exists $events{$msg}) {
    $events{$msg}->();
}
  3. or download this
    open (NEW, 'mail.tmp') or die "Cannot open mail.tmp: $!\n";
if (defined(my $line = <NEW>)) {
    Yes_Mail();
}
close NEW;