Select Code to Download

#!/usr/bin/perl

...
$rc = $im->Write("$0.jpg");
   die $rc if $rc;

#!/usr/bin/perl
use warnings;
...
    close GD;
}