Help for this page
sub print { printto(select,@_); }
Can't use string ("main::STDOUT") as a symbol ref while "strict refs" +in use...
#!/usr/bin/perl -w ... my $fh = select; print $fh "Hello\n";