c:\@Work\Perl>perl -wMstrict -le
"my $ps = sub { my $class = shift;  print qq{obj/class: $class (@_)} };
 ;;
 Foo->$ps;
 'Quux'->$ps(1, 2, 3, 'foo', 'bar');
 ;;
 my $o = bless [];
 $o->$ps(9, 8, 7);
"
obj/class: Foo ()
obj/class: Quux (1 2 3 foo bar)
obj/class: main=ARRAY(0x35c06c) (9 8 7)