note
beebware
<code>#!/usr/bin/perl
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year+=1900;
$date = "$month/$mday/$year";
</code><br>Add the <code>$year+=1900;</code> line, the year is number of years since 1900.
145107
145107