Select Code to Download

use English; use strict; 
my $key; my $value;
...
    print "($key, $value)\n"  if defined $value;
    print "($key, <undef>)\n" if not defined $value;
}

use English; use strict;
my $key; my $value; my $i;
...
    }
    print "}\n";
}