If you are on a system with PPM, then you should be able to type: perldoc ppm on the command line for the full documentation.

Simon Flack ($code or die)
$,=reverse'"ro_';s,$,\$,;s,$,lc ref sub{},e;$,
=~y'_"' ';eval"die";print $_,lc substr$@,0,3;