sub get_oldest {
   my ($dir) = @_;
   my $oldest;
   my $oldest_time;
   my $file_spec = File::Spec->catfile($dir, '*.pl');
   foreach (glob $file_spec") {
      my $time = (stat $_)[10];
      if (!$oldest_time || $time < $oldest_time) {
         $oldest      = $_;
         $oldest_time = $time;
      }
   }
   return $oldest;
}

##</code><code>##

use DirHandle  ();
use File::Spec ();

sub get_oldest {
   my ($dir) = @_;
   my $oldest;
   my $oldest_time;
   my $dh = DirHandle->new($dir);
   while (defined($_ = $dh->read())) {
      next unless (/\.pl$/i);
      my $full_path = File::Spec->catfile($dir, $_);
      my $time = (stat $full_path)[10];
      if (!$oldest_time || $time < $oldest_time) {
         $oldest      = $_;
         $oldest_time = $time;
      }
   }
   return $oldest;
}