>perl -e"sub print { shift; CORE::print(qq{[@_]\n}); } __PACKAGE__->print('foo');
[foo]