Select Code to Download

package TieRegistry;
use strict;
...
{
  print "my print message\n";
}

my $test = TieRegistry->new;
$test->PrintThis;