Time::Local - month problem

From: Dave Saville (dave_at_no-spam-deezee.org)
Date: 12/15/04 

Date: Wed, 15 Dec 2004 10:28:03 GMT

Perl 5.8.0 om Solaris 8

  print "$file $sec $min $hour $mday $mon $year\n";
  my $age = time - Time::Local->timegm($sec, $min, $hour, $mday, $mon,
$year);
  print ">$age\n";

CSHRC 0 0 0 16 11 2003
Month '16' out of range 0..11 at ftp2.pl line 44

Looking at timegm he does

sub timegm {
    my ($sec,$min,$hour,$mday,$month,$year) = @_;

adding
print @_;
print "\n";

after this yields:

CSHRC 0 0 0 16 11 2003
Time::Local00016112003 <==================
Month '16' out of range 0..11 at ftp2.pl line 44

Anyone? 

--
Regards
Dave Saville
NB Remove no-spam- for good email address