#!/usr/bin/perl

use DateTime;

$Inputfile = $ARGV[0]; # Name the file

open(INFO, $Inputfile); # Open the file
@lines = <INFO>; # Read it into an array
close(INFO); # Close the file

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

}