#!/usr/bin/perl BEGIN { $#=Another } sub perl { *about::something = sub{shift;shift,shift,Perl,Hacker};Just,shift} sub hacking {$\=','.$/,$,=$";42} print something about perl hacking