sub run_remote_script {
  use Net::SSH::Perl;
  my ($host,$user,$pass,$opt1,$opt2,$opt3) = @_;
  my $cmd = "/path/to/remote_script $opt1 $opt2 $opt3";
  my $ssh = Net::SSH::Perl->new($host);
  $ssh->login($user,$pass);
  my %output;
  ($output{stdout},$output{stderr},$output{exit}) = $ssh->cmd($cmd);
  return \%output;
}