#! c:/perl/bin/perl.exe 
use strict;
print "\nPlease put in the folder you want to search for files, like example underneath\n";
print "Example for windows 'c:/.../.../.../': ";
chomp(my $dirname = <STDIN>);
opendir (DIR, $dirname) or die "\nError $!\n";  #opens the directory or brings back an error
while (my $name = readdir DIR) {
        next if $name =~ /^\./;                 #excludes the Files . and .. from the list
        my @attr = stat($name);
        if ($attr[7] <= 0) {
        print "Oimitting Directory $name\n";
        } else {
        my $mtime = localtime($attr[9]);
        print "$name  $attr[7] bytes  modified: $mtime\n";
        }}
closedir DIR;