#!perl -w

my $fn = 'fork_test.txt';
my $pid;
if ($pid = fork)
{
    print "Hello from ithread 1\n";
    open(STDOUT,'>',$fn);
    system('ipconfig');
    close STDOUT;
    waitpid($pid,0);
}
else
{ 
    die 'Couldn\'t fork!' unless defined $pid;
    open(READ,'<',$fn);
    print "Hello from ithread 2\n";
    my $l;
   do
   {
	undef $l; my $i = 0;
	while(!defined($l)) 
	{ 
	    my $slp = int(($i++ + 9) / 10); 
	    sleep($slp);
	    $l = <READ>;
	};
	print $l;
    } until($l =~ /Gateway/);
    close READ;
}