sub library_todayis {
 my ($time)=@_;
 if ($time<1) { $time=time(); }
 my @months=qw!Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec!;
 my ($sec, $min, $hour, $day, $mon, $year, $dweek, $dyear, $tz) = loca
+ltime($time);
 if ($day<10) { $day="0".$day; }
 if ($hour<10) { $hour="0".$hour; }
 if ($min<10) { $min="0".$min; }
 if ($sec<10) { $sec="0".$sec; }
 $year      = $year + 1900;
 return ("$day $months[$mon] $year $hour:$min");
}
[download]

Update: Thanks to little, for a 'duh! why are you doing it like that?' here's a shortened version doing it the slightly better way using sprintf:

sub library_todayis {
 my $time=shift || time();
 my @months=qw!Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec!;
 my ($sec,$min,$hour,$day,$mon,$year)=localtime($time);
 $year+=1900;$mon++;
 return sprintf("%02d $months[$mon] $year %02d:%02d",$day,$hour,$min);
}
[download]

But you've heard about printf or sprintf or POSIX?
Those would shorten this your code by 50% up to 80%. *grin*
And you don't need to install them cause they are where Perl is.

Have a nice day
All decision is left to your taste