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