Select Code to Download

#! perl -slw
use strict;
...
print O $i->png;
close O;
system 'junk.png';

C:\test>junk999
gd-png:  fatal libpng error: No IDATs written into file
gd-png error: setjmp returns error condition

  **   **   **   **   **   **
##**###**###**###**###**###**#
...
  **   **   **   **   **   **
##**###**###**###**###**###**#
  **   **   **   **   **   **

  **   **   **   **   **   **
##############################
...
  **   **   **   **   **   **
##############################
  **   **   **   **   **   **

  **   **   **   **   **   **
#######**###**###**###**###**#
...
  **   **   **   **   **   **
######################**###**#
  **   **   **   **   **   **