#!/usr/bin/perl
use strict;

my $directory = "D:\\FTP-Accounts\\upload";
my $hours = 1;
my $count = 0;

print "\n";
opendir (DIR, $directory) or die $!;
	
while (my $_ = readdir(DIR)) {
	#next unless (-f "$directory/$_");
	my $name = $_;
	my $_ = -M;
	print "$name - Days = $_\n";
	$_ = $_ * 24;
		if	($_ > $hours) {
			$count = $count + 1;
			print " * Triggersed * Hours = $_\n\n";
		}
	}

closedir(DIR);	
print "\nFile Count - $count -\n";
if ($count == 0) {print "OK:"} else {print "\nWarning: file is older than $hours hours\n"}; 	
exit 0 if $count == 0;
exit 1;
##</code><code>##

D:\Perl-Scripts>dirlist.pl

. - Days = 0.767615740740741
 * Triggersed * Hours = 18.4227777777778

.. - Days = 11760.4493171296
 * Triggersed * Hours = 282250.783611111

informant-std-16.zip - Days =
VSE880LMLRP1.Zip - Days =

File Count - 2 -

Warning: filelist is older than 1 hours

##</code><code>##

D:\Perl-Scripts>dirlist.pl
Global symbol "$count" requires explicit package name at D:\Perl-Scripts\dirlist.pl line 19.
Global symbol "$count" requires explicit package name at D:\Perl-Scripts\dirlist.pl line 19.
Global symbol "$count" requires explicit package name at D:\Perl-Scripts\dirlist.pl line 25.
Global symbol "$count" requires explicit package name at D:\Perl-Scripts\dirlist.pl line 26.
Global symbol "$count" requires explicit package name at D:\Perl-Scripts\dirlist.pl line 27.
Execution of D:\Perl-Scripts\dirlist.pl aborted due to compilation errors.