package TieRegistry;
use strict;
use Carp;

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

sub PrintThis
{
  print "my print message\n";
}