($day, $month, $year) = (localtime)[ 3, 4, 5 ];

##</code><code>##

$date = `Date /T`;
print FILENAME $date;