use strict;
use warnings;
 
 
print makeDate(),"\n";
 
sub makeDate{
        my @days = ("Sun","Mon","Tues","Wed","Thurs","Fri","Sat");
        my @mons = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sept","Oct","Nov","Dec");
 
        my ($mday,$mon,$wday,$year);
        (undef,undef,undef,$mday,$mon,$year,$wday,undef,undef) = localtime(time);
        $year = 1900 + $year;
        my $date = "$days[$wday] $mons[$mon] $mday $year";
        return $date;
}