@list=(`dir *.log \/B \/OD`);
$count = scalar(@list);
$newest = $list[$#count];
print "$newest \n";