my($min,$hour,$day, $month, $year,$wday) = (localtime)[1,2,3,4,5,6];
if ($year < 70){$year += 2000;}else{$year += 1900;}
my @days = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
my @month_array       =('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
print "$days[$wday], $month_array[$month] $day, $year $hour:$min";