Tue Nov 10 15:24:50 SAUST 2009  

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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