# Convert image from data in scalar
my $img = Imager->new;
$img->read(data=>$PixData, type=>'jpeg')
           or die "Cannot read: ", $img->errstr;

my $thumb = $img->scale(scalefactor=>.3);

$thumb->write(file=>"$0-t.jpg", type=>'jpeg')
           or die "Cannot write: ",$img->errstr;