use strict;
use warnings;

my $dh;
my $dir;
my @files;

# ...
# ... dein weiterer Code
# ... 

if ( opendir($dh, $dir) ) {
  @files =  
     sort {  
        # stat auf Dateinamen in Index 9 ist mtime (Änderungsdatum)
        (stat $a)[9] <=> (stat $b)[9]  # aufsteigend sortieren
     }
     grep {  
        -f # Test auf Typ Datei; könnte ja auch Verzeichnis sein 
        &&
        # Punkt in Dateinamen maskieren!
        /\.(jpg|JPG)$/ 
     } 
     readdir($dh);
  closedir($dh) 
     or die "Kann $dir nicht schliessen (Error: $!)";
}
else {
  die "Kann $dir nicht oeffnen (Error: $!)";
}
my $oldest = $files[0];

# ...
# ... dein weiterer Code
# ...