Select Code to Download

#!/usr/bin/perl

...
print $ofh pack('a*', $data);
close $ofh;
print("Image created.\n");

$ file file-bar.png 
file-bar.png: PNG image data, 400 x 300, 4-bit colormap, interlaced
$ file newfile.png 
newfile.png: very short file (no magic)