Help for this page

Select Code to Download


  1. or download this
    open (my $SAVEDIN, '<&', STDIN ) or die "$!";
my ($READ, $WRITE);
...
) or die "Process did not start";

open( STDIN, '<&', $SAVEDIN ) or die "$!";
  2. or download this
    use Win32::Process; 

...
<STDIN>; 

print "$0: End.\n";
  3. or download this
    print "$0: Starting.\n"; 
print "$0: Reading in variables...\n"; 
...
    print "$0:\t$Temp=$Data{$Temp}\n"; 
} 
print "$0: End.\n";