Select Code to Download

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

$VAR1 = bless( {
                 'dataref' => \'',
...
                              ],
                 'name' => 'APP2'
               }, 'Image::MetaData::JPEG::Segment' );