#!/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 ;
[download]

(and he wanders off to bed...)