but it doesnt return anything

Bull.

#!/usr/bin/perl

use warnings;

sub makeDate {
    @days = ("Sun","Mon","Tues","Wed","Thurs","Fri","Sat");
    @mons = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sept","O
+ct","Nov",
"Dec");

    (undef,undef,undef,$mday,$mon,$year,$wday,undef,undef) = localtime
+(time);
    $year = 2000 + ($year - 100);
    $date = "$days[$wday] $mons[$mon] $mday $year";
    return $date;
}

print makeDate, "\n";
__END__
Thurs Feb 19 2004
[download]

Abigail