Select Code to Download

my $t = time;
(my $sec, my $min, my $hour, my $mday, my $mon, my $year, my $wday, my
+ $yday, my $isdst)=localtime($t);
$year = $year + "1900";

my $year = (localtime)[5] + 1900;