Select Code to Download

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];

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

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

sub makeDate {
  my @days = qw(Sun Mon Tues Wed Thurs Fri Sat);
...
  $year += 1900;
  return "$days[$wday] $mons[$mon] $mday $year";
}