Select Code to Download

#! perl -slw
use strict;
...
close PNG;

system 1, "$0.png";

#! perl -slw
use strict;
...

system 1, "$0.png";