use ModB;
my $b = ModB->new();
$b -> p ( "World!" ) ;