#!/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