#!/usr/bin/perl
STDOUT; # '???';
{ # {
    END   { BEGIN } # sub END { (); }
    BEGIN { STDOUT } # sub BEGIN { 'STDOUT'; }
    STDOUT; # '???';
    STDIN; # '???';
} # }
{ # {
    FINISH; # '???';
    END { print "hacker," } # sub END { print 'hacker,'; }

    END;
    STDOUT(); # STDOUT();

    BEGIN;
    OK; # '???';
    sub ::END { print " " } # sub END { print ' '; }

    sub SDTOUT { # sub SDTOUT {
        local $_ = "@_"; # local $_ = "@_";
        SUB; # '???';
        BUS(@_); # &BUS(@_);
        SDINT; # 'SDINT';
    } # }
    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 { END; STDERR; SUB; print } # sub SUB { '???'; '???'; print $_; }
        $_ = $"; # $_ = $";
    } # }

    END { # sub END {
        { # {
            SUB && &$SUB(another) || &print; # &print unless SUB  and &$SUB('another');
            Perl; # '???';
            STDIN; # '???';
            Perl; # '???';
            SDTOUT Perl; # SDTOUT 'Perl';
            sub STDIN { } # sub STDIN { (); } ;
        } # }
    } # } ;
} # }
{ *BEING = BEGIN } # { *BEING = 'BEGIN'; }
{ END } # {sub END ; ;};
STDERR; # '???';

##</code><code>##

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

    STDOUT(); # STDOUT();

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

    sub SDTOUT { # sub SDTOUT {
        local $_ = "@_"; # local $_ = "@_";
        BUS(@_); # &BUS(@_);
        SDINT; # 'SDINT';
    } # }
    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';
            sub STDIN { } # sub STDIN { (); } ;
        } # }
    } # } ;
} # }
{ *BEING = BEGIN } # { *BEING = 'BEGIN'; }

##</code><code>##

#!/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';
        } # }
    } # } ;
} # }

##</code><code>##

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

#!/usr/bin/perl
    STDOUT(); # STDOUT();

    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'; }

        sub SUB { print } # sub SUB { print $_; }
        $_ = $"; # $_ = $";

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

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

    END { print "hacker," } # sub END { print 'hacker,'; }