#!/usr/bin/perl -w

use strict;

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

opendir (DIR, "$dir") or die $!;
my @entries = readdir(DIR);
close (DIR);

my $max_time = 0;
my $entry = '';
foreach my $zeile (@entries) {
     next if $zeile =~ /^\.\.?$/;
     my @info = stat($dir . $zeile);
     if( $info[9] > $max_time ){
          $max_time = $info[9];
          $entry = $zeile; 
     }
}

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