#!/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);

foreach my $zeile (@entries) {
     next if $zeile =~ /\./;
     $zeile = $dir . $zeile;
     my @info = stat($zeile);
     print "$info[8]\n";
}