package main;

my $x = new Foo2;
my $y = new Bar2;

$x->val(17);
$y->val('xyzzy');

$x->print;
$y->print;