Help for this page

Select Code to Download


  1. or download this
    sub print
{
  printto(select,@_);
}
  2. or download this
    Can't use string ("main::STDOUT") as a symbol ref while "strict refs" 
+in use...
  3. or download this
    #!/usr/bin/perl -w

...
my $fh = select;

print $fh "Hello\n";