use Image::ExifTool;

my $date = '2001:02:01 13:55:22'; #%Y:%m:%d %H:%M:%S
my $file = 'test.jpeg';
my $neufile = "$file.new";

my $exifTool = Image::ExifTool->new;

$exifTool->SetNewValue(DateTimeOriginal => $date, Protected=>1);
$exifTool->SetNewValue(CreateDate=>$date, Protected=>1);                

my $success = $exifTool->WriteInfo($file, $neufile); 

use strict; 
use warnings;

use 5.010;

my $DEBUG;

use Time::Piece;
use Time::Seconds; 

my $zeit_differenz = +2; # 2 Sekunden 
my $start_datum;

my $first = 1;
my $t;
for my $fn (<00*.jpg>) {                  # hole alle Dateien per glob
  if ($first) {
    $start_datum = get_exif_date($fn);    # hole Datum der ersten Datei!
    $DEBUG && say "EXIF date: $start_datum";
  
    $t = Time::Piece->strptime($start_datum, '%Y:%m:%d %H:%M:%S'); # Datum in internes Time::Piece
    $DEBUG && say "Time::Piece date: ".$t->ymd(":")." ".$t->hms;
    
    $first = 0;    
    next;
  }

  $t += $zeit_differenz;                    # nächsten Zeitpunkt setzen  
  my $date = $t->ymd(":")." ".$t->hms;      # Datumszeichenkette bauen
  $DEBUG && say "Next date: $date";

  change_exif_date($fn, $date);             # neues EXIF-Datum in Datei setzen
}

use Image::ExifTool;
sub change_exif_date {
  my $file_name = shift;
  my $date = shift;

  my $exifTool = Image::ExifTool->new;
  my $info = $exifTool->SetNewValuesFromFile($file_name); # Original EXIF-Daten holen
  
  $exifTool->SetNewValue(DateTimeOriginal => $date);      # Originaldatum (EXIF-Tag DateTimeOriginal) setzen
  $exifTool->SetNewValue(CreateDate => $date);            # Erzeugungsdatum (EXIF-Tag CreateDate) setzen
  
  my $success = $exifTool->WriteInfo($file_name);         # EXIF-Daten zurückschreiben
  return $success;
}

sub get_exif_date {
  my $file_name = shift;
  
  my $exifTool = Image::ExifTool->new;
  my $info = $exifTool->ImageInfo($file_name);            # Exif-Daten aus Datei auslesen
  my $date = $exifTool->GetValue("CreateDate");           # EXIF-Tag CreateDate auslesen

  return $date;
}