#!/usr/bin/perl -w
use strict;
use Net::OpenSSH;
my $ssh = Net::OpenSSH->new($ARGV[0]);
$ssh->error and
  die "Couldn't establish SSH connection: ". $ssh->error;
shift;
my (@args)=@_;
shift while (@ARGV!=0);
my $command="";
while (<>)
{
        $command.=$_;
}
$ssh->system("perl - <<EOS  @args
$command;
EOS
");