#!/usr/bin/perl
use strict;
use warnings;
use Image::ExifTool qw(:Public);

my $jpg = $ARGV[0] or die "Usage: $0 <file>";

my $tool = Image::ExifTool->new();
$tool->ExtractInfo($jpg);

$tool->SetNewValue('Make'); # Deleting this tag magically makes it work

my $success = $tool->SetNewValue("DateTimeOriginal", '2008:01:02 03:04:05');
if ($success) {
    $success = $tool->WriteInfo($jpg);
    print "Update failed", $tool->GetValue('Error'), "\n" if ! $success;
}
__END__
Update failed[minor] Bad MakerNotes directory pointer for tag 0x203