my @days = qw(Sun Mon Tues Wed Thurs Fri Sat);
my @mons = qw(Jan Feb Mar Apr May Jun Jul Aug Sept Oct Nov Dec);

##</code><code>##

my ($mday,$mon,$year,$wday) = (localtime)[3..6];

##</code><code>##

$date = "$days[$wday] $mons[$mon] $mday $year";
return $date;

##</code><code>##

return "$days[$wday] $mons[$mon] $mday $year";

##</code><code>##

sub makeDate {
  my @days = qw(Sun Mon Tues Wed Thurs Fri Sat);
  my @mons = qw(Jan Feb Mar Apr May Jun Jul Aug Sept Oct Nov Dec);
  my ($mday,$mon,$year,$wday) = (localtime)[3..6];
  $year += 1900;
  return "$days[$wday] $mons[$mon] $mday $year";
}