package foo; sub bar { print "foobar strikes again!\n"; } package main; # Create and throw away an object bless \$x, "foo"; # But the blessing is not forgotten! (\$x)->bar();