#!/bin/usr/perl

use strict;
use warnings;

my $modified_within = 2 * 60;
my $InputDir = "/home/marto/derpderp";
my $LastModified = (stat($InputDir))[9];
my $CurrentTime = time;

if ( $LastModified > ($CurrentTime - $modified_within) ){
  print "Modified in last 2 minutes\n";
}else{
  print "Not Modified in last 2 minutes\n";
}