$tmp = `ls -lrt`;
@array = split /\n/,$tmp;
print $array[@array-1];