The Learning Perl book? I'd hope there was some obfuscation in the "new standard".

open(MOUTH,"<-");insert::foot();