#!/usr/bin/perl -w
use Data::Dumper;
use CGI qw/:standard/;
use CGI::Carp 'fatalsToBrowser';
use strict;

$ENV{'PATH'} = '/bin:/usr/bin';
delete @ENV{'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};

my $cmd = qq(rsh case3 /home/dncms/bin/testForwardLookup.pl case3 &|);
my $result = "";


print header;
print "running {$cmd}\n";

open(FOO,$cmd) || die "Failed to run $cmd: $!";
while (<FOO>)
{
	print "feh: ";
	$result .= "$_\n";
}
close(FOO);
print ( $result );

##</code><code>##

dncms@alien 531 > perl foo.pl    
Content-Type: text/html; charset=ISO-8859-1

running {rsh case3 /home/dncms/bin/testForwardLookup.pl case3 &|}
feh: 130.42.0.117

##</code><code>##

running {rsh case3 /home/dncms/bin/testForwardLookup.pl case3 &|}