#!/usr/bin/perl
use POSIX qw(strftime);
my $ltime = shift;
print strftime "%a %b %e %H:%M:%S %Y\n", localtime($ltime);