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