Select Code to Download

my ($file) = @ARGV;

my $mtime = (stat($file))[9];  # Index 9 according to docs

utime($mtime,$mtime,$file);    # See @ARGV in docs