Select Code to Download

"Use of uninitialized value in subtraction (-) at ./test3.pl line 30.
Use of uninitialized value in subtraction (-) at ./test3.pl line 31.
Month '-1' out of range 0..11 at ./test3.pl line 35"

#!/usr/bin/perl

...
my $strings;

for my $date (@lines) {

 ($yyyy, $mm, $dd) = ($date =~ /(\d+)-(\d+)-(\d+)/);
 $epoch_seconds = timelocal(0, 0, 0, $dd, $mm, $yyyy-1900);
 $strings = localtime($epoch_seconds);

 print "$date : $epoch_seconds\n" if $date lt $cutoff;
}