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

my $file=shift(@ARGV) // '/etc/fstab';

my $timestr=POSIX::strftime( "%Y-%m-%d_%H:%M:%S", localtime(( stat $file )[9] ) );

print "$timestr\n";