opendir DIR, q{.} or die $!,$/;
my $last;
while (my $file = readdir DIR) {
   $last = $file;
}
print $last; ## this prints the last file
closedir DIR;