#!/usr/bin/perl
require "timelocal.pl";

@wname = ("Sun","Mon","Tue","Wed","Thu","Fri","Sat","Sun");
@mname = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
@mnum{@mname} = ("01" .. "12");

$time = shift || time;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);

$dateformat = "%s, %02d%s%04d %02d:%02d:%02d";
$datestamp = sprintf($dateformat, $wname[$wday], $mday,$mname[$mon],$year+1900, $hour,$min,$sec);

$time = timelocal($sec,$min,$hour,$mday,$mon,$year);

print "$time $datestamp\n";