#!/bin/perl

if (@ARGV != 1) {
	die "$0: requires one command line argument";
	exit 1;
}

@F = stat($ARGV[0]) or die "$0: $!";
print scalar(localtime($F[9])), "\n";
exit 0;
