use strict; use warnings;
use Image::MetaData::JPEG;
use Image::MetaData::JPEG::Record;
use Image::MetaData::JPEG::data::Tables
    qw(:JPEGgrammar :Endianness :RecordTypes);

use Data::Dumper;

#read the image filname from the command line arguments
my $file = new Image::MetaData::JPEG($ARGV[0]);

#add MP header information in the APP2 segment in the image
my $buffer;
my $segref = new Image::MetaData::JPEG::Segment('APP2', $buffer, 'NOPARSE');

my $head = "MPF0";
my $recref = $segref->store_record('MP_HEADER', $LONG, \$head, 1);
print Dumper $segref;

$file->insert_segments($segref);

#save 
$file->save('tmp1.jpg');