$ perl ./aliasing2.pl
fds before aliasing: fh=3, STDOUT=1
fds after aliasing:  fh=3, STDOUT=3