perl -e 'print qq~package X; { package UNIVERSAL; our \$AUTOLOAD; sub AUTOLOAD { warn "\$AUTOLOAD" }} 9\n~' > X.pm; cat X.pm