storing date into variable

Select or download this

Tue Nov 10 15:24:50 SAUST 2009

Select or download this

the day will be Tue
the month will be Nov 
the day num will be 10

Select or download this

my $todayDate = system qq(date);
($day, $month, $dayNum, $var4, $var5) = split(" ", $todayDate);
...
print "the day will be $day\n";
print "the month will be $month\n"; 
print "the day num will be $dayNum\n";

Select or download this

the day will be
the month will be  
the day num will be

Select Code to Download