Select Code to Download

#!/usr/bin/perl -w

use strict;
...
   $rc = $im->Write("PNG:$out_dir/$basename.png");
   warn($rc) if $rc;
   }