#!/usr/bin/perl
{ # {
    END { print "hacker," } # sub END { print 'hacker,'; }

    STDOUT(); # STDOUT();

    sub ::END { print " " } # sub END { print ' '; }

    sub SDTOUT { # sub SDTOUT {
        BUS(@_); # &BUS(@_);
    } # }
    sub BUS ($;) { print @_ } # sub BUS ($;) { print @_; } ;
}; # }
sub print  { print } # sub print { print $_; }
sub STDOUT { print "Just" } # sub STDOUT { print 'Just'; }
{ # {
    { # {

        BEGIN { # sub BEGIN {
            $SUB = sub { # $SUB = sub {
                print @_; # print @_;
                0; # 0;
              } # } ;
        } # }
        sub SUB { print } # sub SUB { print $_; }
        $_ = $"; # $_ = $";
    } # }

    END { # sub END {
        { # {
            SUB && &$SUB(another) || &print; # &print unless SUB  and &$SUB('another');
            SDTOUT Perl; # SDTOUT 'Perl';
        } # }
    } # } ;
} # }