opendir DIR, q{.} or die $!,$/;
my @files = readdir DIR;
closedir DIR;
print $files[-1];  ## this prints the last file