Perl процедура даты-время

###
sub d_t {
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$year=(1900+$year);
++$mon;
if ($mon<10) {$mon="0$mon";}; if ($mday<10) {$mday="0$mday";}; $dat="$mday-$mon-$year"; ### дата в формате 19-04-2010 if ($hour<10) {$hour="0$hour";}; if ($min<10) {$min="0$min";}; if ($sec<10) {$sec="0$sec";}; $vrem="$hour:$min:$sec"; ### время в формате 12:00:00 } ###