use DateTime;  

$Inputfile = $ARGV[0];          
open(INFO, $Inputfile);          
@lines = <INFO>;                        
close(INFO);                            

my$dt = DateTime -> now;

$dt -> set_hour(0);
$dt -> set_minute(0);
$dt -> set_second(0);

print $lines[0];
print $lines[1];

for ($i = 2; $i<@lines; $i++) {
                        
        $datum=$dt->dmy('.') . " " . $dt->hms(':');
        
        @currentLine = split(/;/, $lines[$i]);
        print($datum . ";" . $currentLine[1]);
        
        $dt -> add(hours=>1);
        
}