my $o = new Image::Magick;

$o->Read("$tempfile");

# Geometry=>'300x200"+"115"+"256',
# x=>115, y=>256, width=>300, height=>200,

$o->Crop(geometry=>"300x200+115+256");
$o->Write(filename=>"$tempfile", compression=>"none");