Hello all, Remember that problem you'd helped me solve earlier? Well, I had to update the system and I think the perl on it broke :( I've tried downloading and installing all modules mentioned here but the thing seems to be laughing in my face!! Here's the code that we fixed that time. Please tell me what Perl modules to install on perl-5.16.2_1 to make this work?

    use strict;
use warnings;
use Net::FTP;
use File::Listing qw(parse_dir);
use POSIX qw(strftime);


my ($host, $user, $passwd) = ('1.2.3.4', 'abcd', 'efgh');
my $dir = '/abc/def/ghi';
my $ftp = Net::FTP->new($host)
    or die qq{Cannot connect to $host: $@};
$ftp->login($user, $passwd)
    or die qq{Cannot login: }, $ftp->message;
$ftp->cwd($dir)
    or die qq{Cannot cwd to $dir: }, $ftp->message;
my $ls = $ftp->dir();
$ftp->binary();
foreach my $entry (parse_dir($ls)) {
    my ($name, $type, $size, $mtime, $mode) = @$entry;
    next unless $type eq 'f';
    my $time_string = strftime "%Y-%m-%d", gmtime($mtime);
        if ($time_string ge '2013-03-21' && $time_string le '2013-04-2
+0') {
                print "File $name has an mtime of $time_string\n";
                $ftp->get($name)
                or die "get failed ", $ftp->message;
        }
}
$ftp->quit;
[download]

It was getting files from the 21st to the 31st of the month and working fine till I updated the Perl and broke it :( The reason I want it this way is so that someone who isn't very familiar with scripts can easily modify the dates and away they'd go!

How do I fix this 'broken' Perl and make the above code (previously working) work again!!??