Help for this page

Select Code to Download


  1. or download this
    close STDOUT;
open STDOUT, ">out" or die;
...
exit 0 if $pid; # parent exits

print "Message!\n"; #child prints to file
  2. or download this
    tie *STDOUT, TrapClass;

...
    my $fh = $self->{fh};
    print $fh @_;
}
  3. or download this
    tie *STDOUT, TrapClass;

...
    my $fh = $self->{fh};
    print $fh @_;
}
  4. or download this
    close STDOUT;
open STDOUT, ">out" or die;
...
exit 0 if $pid; # parent exits

exec "/bin/date"; #child prints to file