Select Code to Download

    if (-e $file){
        my $sb = stat($file) or croak("Could not stat ($file): $!");
...
        $mtime = $time;
        }
    }

sub touch {
    my $t    = time;
...
        utime($t,$t,$file);
    }
}