Select Code to Download

#!perl -w
use Foo::FatalsToEmail qw(Mailhost 192.168.0.100 Address guha@xxxxx.se
+);

die "with an icepick in the forehead";

package FatalsToEmail;
use strict;
...
  }
}

C:\Labbet\OLD>perl test.pl
Content-Type: text/html
...
Mon May  5 22:49:07 2003:3412:test.pl:7: with an icepick in the forehe
+ad at test.pl line 7.
(send_mail saw to:  at C:/DEV/Perl/site/lib/Foo/FatalsToEmail.pm line 
+85.
)

To VSarkiss

...
    print LOG;
}
Changing "unless" to "if" is what I'm yabbing about but never mind.

This contains NEW info, there is always something new to learn along t
+he perly path
CB snapshot 2003-02-04
...
<BazB> Thanks, Corion, bart.
castaway files away that bit of info for later use :)

To sch

...
foreach my $type (keys(%fruit)) {
    print "$type : ",scalar keys %{ $fruit{$type} }, "\n";
}