use strict; use warnings; use utf8; package うんこ; binmode STDOUT => 'encoding(cp932)'; do { no strict 'refs'; *{"::I'm unko."} = sub { print "うんこ @_\n" }; }; package main; do { no strict 'refs'; &{"I'm unko."}("(゚Д゚)ウマー"); } シンボリックリファレンス使えば何でもできるよ。 とにかく名前空間を汚したいときはサイコーに便利だね!