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

##</code><code>##

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

##</code><code>##

## sorted by name, case sensitive
my @files = sort {$a cmp $b} readdir DIR;