Select Code to Download

#get the modification time of the remote file
#assuming $ftp is a Net::FTP object
...
#set the time of the local file
# (assumes $file is also the local file name)
utime $mtime, $mtime, $file;

my $now = time;
utime $now, $now, @localfiles;