Select Code to Download

#!/usr/bin/perl -w

use strict;
...
package CodeHash;

sub TIEHASH { bless sub {}, $_[0] }