Select Code to Download

#!/usr/bin/perl
use warnings;
...
$output->BlobToImage( $blob );
$output->Resize(geometry=>'160x120');
$output->Write('z.jpg');

#!/usr/bin/perl
use warnings;
...
open(FH,"> $0.gif")or die "$!\n";
print FH $blob;
close FH;