Select Code to Download

#!/usr/bin/perl

...
            )->pack();

MainLoop;

my %strings = qw/first one second two third three/;

...
                           print $/;
                         }
            )->pack();