DB<1> 
main::(monks1086151.pl:18):	my $test = 1.23;
  DB<1> 
main::(monks1086151.pl:19):	print "test: $test \n";
  DB<1> 
test: 1.23 
main::(monks1086151.pl:21):	print My::Test::Print::printer() ."\n";
  DB<1> 
This is 1.11
1
main::(monks1086151.pl:23):	1;
  DB<1> no strict 'refs';
...
  DB<8> for (keys %{'My::Test::Print::'}){print qq|$_\t|};
printer	VERSION