Select Code to Download

my $white;
# Create background
...
binmode $fh;
print $fh $image->png;
close $fh;