If this code is in a package called "TieRegistry", you will not see the output from print statements outside of any methods (subroutines) in that module just by typing "use TieRegistry"

If the print statements are in a subroutine in the package TieRegistry:

package TieRegistry;
use strict;
use Carp;

sub new
{
  my $class = shift;
  my $self = bless {}, $class;
}

sub PrintThis
{
  print "my print message\n";
}
[download]

And then in your main program, after "use TieRegistry", you had:

my $test = TieRegistry->new;
$test->PrintThis;
[download]

The line "my print message" would print.