@months = ('Jan','Feb','Mar','Apr','May','June',
                 'July','Aug','Sept','Oct','Nov','Dec');

@days = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');

($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
$year=$year+1900;

$date = " $days[$wday], $months[$mon]/$mday/$year $hour:$min:$sec";