Select Code to Download

$filename1 = "c:/progra~1/imms";             #file on the client (win 
+95/98).
$filename2 = "//bmc_1/imms_stock/imms_exe/imms.exe";    #file on serve
+r.
...
    print "$filename2 is up to date!\n";
    print "No files copied!\n";
}

sub file_age {
   (stat($_[0]))[10]; # return the epoch seconds since the file was cr
+eated
...
    print "$filename2 is up to date!\n";
    print "No files copied!\n";
}