Help for this page

Select Code to Download

Select or download this

use Net::SSH::Perl;

...
$ssh->login("myUser", "myPassword");
my ($out, $error) = $ssh->cmd("pwd");
print $out . "\n";

Select or download this

use Tk;
use Net::SSH::Perl;
...
)->pack();

MainLoop;