#!/usr/bin/perl
use strict;
use warnings;

my $file = "this.file";

if (-f $file){
    my $mtime = (stat($file))[9]; 

    my $modified_ago = time() - $mtime;

    my $modified_ago_minutes = sprintf("%.2d", $modified_ago / 60);

    if ($modified_ago_minutes > 120){
        print "$file\n";
    }
}