Help for this page
#!/usr/bin/perl open(STDOUT,"> /tmp/t26.out");
#!/usr/bin/perl close(STDOUT); open(STDOUT,"> /tmp/t27.out");