$ perl ./aliasing1.pl
before aliasing: sock=5, STDIN=0, STDOUT=1
after aliasing:  sock=5, STDIN=5, STDOUT=5
^C
$