Select Code to Download

print $_ foreach(@open);

print @open;

use strict;
use warnings;
...

print "$zero$one\n";