Perl / SSH

Някой да е имал следния проблем -

Сървер1 е в ДМЗ и аз искам да се сваржа със него от Сържер2 на порт 22 (SSH) и да стартирам 'бач' програма на Сървер1.

1) Постижимо ли е това?
2) Насоки,идеи?
3) Някой случайно да има готов скрипт?

мерси!

нещо от рода на следното работи (no ERR handling included) ако допуснем, че програмата е на Server2 и искаш да я копираш на Server1 преди изпълнението и:

use Net::SFTP;

use Net::SSH::Perl;



my $ssh_obj = Net::SSH::Perl->new($host);

my $scp_obj = Net::SFTP->new($host, 

                             { 

                                  user => $username, 

                                  password => $password,

                              }

 );



$ssh_obj->login($username, $password);

$scp_obj->put($local_filename, $remote_filename);



my($stdout, $stderr, $exit) = $ssh_obj->cmd($program_to_be_executed);

Всъщност СФТП не е нужен понеже програмата сте е на Сержер1 - проблема е да се стартира от Сервер 2. Мерси много изглежда лесно с ССХ.

ssh user@server1 "/usr/local/..."