in reply to Year shows as 20102 in date
#!/usr/bin/perl ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time +); $year+=1900; $date = "$month/$mday/$year";
Add the $year+=1900; line, the year is number of years since 1900.
In Section
Seekers of Perl Wisdom