$newfile = "/perl/bin/newr";
opendir(DIR,$newfile);
@files = readdir(DIR);
close(DIR);

chdir ($newfile);
for(@files)
{
print "$_\n";
$filename   = $_;
$_ = $lastaccess = localtime ( (stat($_))[8] );
$_ =               localtime ( (stat($_))[9] ); 
print "accs time : $lastaccess\n";
print "mod  time : $_\n";
}