#!/usr/bin/perl -w

use strict;
#use diagnostics;
use warnings;
use POSIX;

my $file = $ARGV[0] || 'a.pl';
my @t = stat($file);

print "Accessed: ", strftime("%A, %B %d, %Y, %H:%M:%S",localtime($t[8])), "\n";
print "Modified: ", strftime("%A, %B %d, %Y, %H:%M:%S",localtime($t[9])), "\n";
print "Created: ", strftime("%A, %B %d, %Y, %H:%M:%S",localtime($t[10])), "\n";