$newfile = "/perl/bin/newr";

opendir(DIR,$newfile);
@files = readdir(DIR);
close(DIR);

for(@files)
{
print "$_\n";
$_ = $lastaccess = localtime ( ( stat($_)) [8] );
#print "$_\n";
$_ = localtime ( (stat($_))[9] ); 
print "$_\n";
}
print "./";
print "\n";