#!/usr/bin/perl
use strict;
use CGI;

my @nodes = qw|node1 node2|;

my $query = CGI->new();
print $query->header( "text/html" ),
      $query->start_html(-title   => "doesn't work"),
      $query->h1( "Here we go!" );

foreach my $node ( @nodes ) {
      open ( IN, "rsh -l cmtd $node /path/to/script.pl |" ) || die "dead $!";
      while ( <IN> ) {
           print $query->h1($node);
           print $query->h1($_);
      }
}
$query->end_html;