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);
	
}