http://www.perlmonks.org?node_id=442236

Roll your eyes and move along, nothing else to see here.

#!/usr/bin/perl STDOUT ; { END { BEGIN } ; BEGIN { STDOUT } ; STDOUT ; STDIN ; } { FINISH ; END { print "hacker," } END ; STDOUT() ; BEGIN ; OK ; sub ::END { print " " } sub SDTOUT { local $_ = "@_" ; SUB ; BUS (@_) ; SDINT } sub BUS ($;) { print @_ } } ; sub print { print } sub STDOUT { print "Just" } { { BEGIN { $ SUB = sub { print @_ ; 0 } } ; sub SUB { END ; STDERR ; SUB ; print } $_ = $" ; } END { {SUB &&& $SUB (another) ||& print ; Perl ; STDIN ; Perl ; SDTOUT Perl ; sub STDIN { } ; } } } { *BEING = BEGIN } { END } STDERR ;

(and he wanders off to bed...)