#!/usr/bin/perl 
 
sub getlast5 { 
  my $dir=shift; 
  my @files; 
 
  opendir DIR,$dir || die "Couldn't open '$dir': $!"; 
 
  for my $x (sort { (stat($b))[9] <=> (stat($a))[9] } readdir DIR) { 
    next if $x eq "." || $x eq ".."; 
    push @files,$x; 
    last if $#files==4; 
  } 
 
  closedir DIR; 
 
  @files; 
} 
 
print join("\n",getlast5(".")),"\n";