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