Benutze Date::Time das kann schon mit Zeitumstellungen umgehen...

Und statt der ganzen $new_stats_sekunden = '0'.$new_stats_sekunden if $new_stats_sekunden<10;

kannst Du sprintf benutzen... $new_stats_sekunden = sprintf("%02",$new_stats_sekunden); siehe perldoc -f sprintf