Select Code to Download

        if (time - $ftp->mdtm($_) > $maxage) { push(@return, $_); }

[pcsson@psr-iccdrift op5]$ ./ftp.pl -u loollippop -P pitamikabyta -m m
+y_machine -d hippohumpa -a 10 -s hej
Use of uninitialized value in subtraction (-) at ./ftp.pl line 70.
2 stuck files stuck on hej

#!/usr/bin/perl
use warnings;
...
    err scalar(@stuck) . " stuck files stuck on $name";
} else { exit 0; }
__END__