(my $month, my $day, my $time, my $host, my $service, undef) = split;
[download]

This is better written as:

my ( $month, $day, $time, $host, $service ) = split;
[download]

You can leave off the "undef" as Perl will simply discard that last element for you.

Cheers,
Ovid

Vote for paco!

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.