my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime( time) ;
my $return ;
$mon++ ;
$year += 1900 ;
$return = sprintf "%02d-%02d-%4d",
           $mday , $mon ,$year;