use foo;
my $frob = foo::new();
foo::set_default_bar(2);
my $nitz = foo::new();

print "FROB=", $frob->status(), "\n";
print "NITZ=", $nitz->status(), "\n";