#!/usr/bin/perl
use POSIX qw( strftime );

print strftime('%a %b %e %H:%M:%S %Z %Y', localtime( $ARGV[0] ) ) . "\n";