Help for this page

Select Code to Download


  1. or download this
    my $ssh = Net::OpenSSH->new($host, "user"=>$user, "passwd"=>$pass);
$ssh->error and die "Couldn't establish connection: ". $ssh->error;

...
my @output = $ssh->capture('control call hangup -a');
$ssh->error and warn "Couldn't hangup: ". $ssh->error;
print "line: $_" for (@output);
  2. or download this
    line: 
line: ok,00
line: 
line: ok,00
  3. or download this
    $ control call dial *receiver*

...
ok,00
CS,23,1,Terminated
$