Select Code to Download

sub library_todayis {
 my ($time)=@_;
...
 $year      = $year + 1900;
 return ("$day $months[$mon] $year $hour:$min");
}

sub library_todayis {
 my $time=shift || time();
...
 $year+=1900;$mon++;
 return sprintf("%02d $months[$mon] $year %02d:%02d",$day,$hour,$min);
}