Help for this page
#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;