Select Code to Download

use strict;
use warnings;
...

$img->filter(type=>'autocrop', fuzz=>20) or die "autocrop: ".$img->err
+str();
$img->write(file=>'out.jpg') or die "writing: ".$img->errstr();