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