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