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


##</code><code>##

$VAR1 = bless( {
                 'dataref' => \'',
                 'endianness' => undef,
                 'error' => undef,
                 'records' => [
                                bless( {
                                         'values' => [
                                                       1297106480
                                                     ],
                                         'extra' => undef,
                                         'key' => 'MP_HEADER',
                                         'type' => 4
                                       }, 'Image::MetaData::JPEG::Record' )
                              ],
                 'name' => 'APP2'
               }, 'Image::MetaData::JPEG::Segment' );