Select Code to Download

#!/usr/bin/perl-Tw

...
                print $p . "\n";
        }
}

my %dramatis_personae = (
    humans => [ 'hamnet', 'shakespeare', 'robyn', ],
...
        print "\t$_\n";
    }
}