#! /bin/usr/perl

my $modified_within = 2 * 60;
my $InputDir = "/tmp/KAKA/";
my $LastModified = (stat($InputDir));
my $CurrentTime = time;

if ($LastModified->[9] > $CurrentTime - $modified_within) {
print "Not Modified in last 2 minute";
}
else
{
print "Modified in last 2 minutes";
}