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