my $time_string = strftime "%Y-%m-%d", gmtime($mtime); if ($time_string =~ 2013-04-01 && ($1>=01 && $1<=20)) { print "File $name has an mtime of $time_string\n"; $ftp->get($name) or die "get failed ", $ftp->message;