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