my $object; sub frobnitz { $object->do_frobnitz; }; print "Done";