Select Code to Download

$newfile = "/perl/bin/newr";
opendir(DIR,$newfile);
...
print "accs time : $lastaccess\n";
print "mod  time : $_\n";
}

use strict;

...
    print "accs time : $accesstime\n";
    print "mod  time : $modtime\n";
}