#!/usr/bin/perl -w

use strict;

my $dir = "C:\\Dokumente und Einstellungen\\ich\\Anwendungsdaten\\tor\\cached-status\\";
my $max_time = 0;
my $entry = '';

opendir (DIR, "$dir") or die $!;

while( my $zeile = readdir DIR) {
     next if $zeile =~ /^\.\.?$/;
     my @info = stat($dir . $zeile);
     if( $info[9] > $max_time ){
          $max_time = $info[9];
          $entry = $zeile; 
     }
}

close (DIR);

print "Die Datei $entry wurde als letztes aktualisiert (Zeitstemple: $max_time)\n";