but it doesnt return anything. any ideas on what im doing wrong?

I just tried the code with some very minor changes and it worked for me. I doubt that my changes "fixed" anything, but here is my modified version in its entirety:

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","S
+ept","Oct","Nov","Dec");
 
        my ($mday,$mon,$wday,$year);
        (undef,undef,undef,$mday,$mon,$year,$wday,undef,undef) = local
+time(time);
        $year = 1900 + $year;
        my $date = "$days[$wday] $mons[$mon] $mday $year";
        return $date;
}
[download]

When run it produced:

--$  perl /tmp/mystic.pl
Thurs Feb 19 2004
[download]

Since you did not provide the calling environment's code I don't know what might be going wrong there, but that's where I'd look...