#!/usr/bin/perl
#this uses Net::SSH, instead of Net::SSH::Perl 
#and it needs the key method of authentication, 
#it won't use passwords. 
#use strict; 
#use warnings; 
use Net::SSH qw(sshopen3);

my $user = "zz";
my $host = "zentara.zentara.net";
my $cmd = "/usr/bin/wvdial";
sshopen3( "$user\@$host", *WRITER, *READER, *ERROR, "$cmd" );
my $out = <READER>;
my $error = <ERROR>;
chomp $out;
print "$out\n";
print "$error\n";