use strict;
use warnings;

my $file = $ARGV[0] or die "No argument given\n";
my $age = time - (stat($file))[9];

print "$file was last modified $age seconds ago\n";