Select Code to Download

use warnings;
use strict;
...
binmode IMG;
print IMG $im->png;
close IMG;

use warnings;
use strict;
...
        close IMG;
}