#!perl
my $dir = "/home/foogod";
my @array = `ls -ut $dir`;
print "$array[0]";