#!perl

use strict;

my %rshcmd = ('i386_rh9'      => 'ssh fustflum@snorklewacker.mit.edu',
	      'i386_rhel3'    => 'ssh fustflum@dodecahedron.mit.edu',
	      'sun4x_58'      => 'ssh fustflum@open-boozeware.mit.edu',
	      'sun4x_59'      => 'ssh fustflum@no-knife.mit.edu',
	      'i386_linux24'  => 'ssh joshua@poincare.eecs.harvard.edu');

my @cmds = ();

while (<STDIN>) {
    chomp;
    push @cmds, $_;
}

foreach my $platform (keys (%rshcmd)) {
    
    open (SSH, '-|', $rshcmd{$platform} . "hostname" )
	or die "$rshcmd{$platform} failed: $!";
    
    for my $cmd (@cmds) {
	print SSH $cmd, "\n";
    }
    
    print SSH "logout\n";
    close (SSH);

}