my %parms = ( user => “phil”, password => “testme” );
my $sftp = Net::SFTP->new($sadder, % parms) ;

##</code><code>##

my $user = “phil” ;
my $pass = “testme” ;
my %parms = ( user => $user, password =>  $pass) ;
my $sftp = Net::SFTP->new($sadder, % parms) ;

##</code><code>##

bast: Reading configuration data /home/mumble/.ssh/config
bast: Reading configuration data /etc/ssh_config
bast: Connecting to mumble.mumble.mumble.mumble, port 22.
bast: Remote protocol version 1.99, remote software version OpenSSH_3.5p1
bast: Net::SSH::Perl Version 1.25, protocol version 2.0.
bast: No compat match: OpenSSH_3.5p1.
bast: Connection established.
bast: Sent key-exchange init (KEXINIT), wait response.
bast: Algorithms, c->s: 3des-cbc hmac-sha1 none
bast: Algorithms, s->c: 3des-cbc hmac-sha1 none
bast: Entering Diffie-Hellman Group 1 key exchange.
bast: Sent DH public key, waiting for reply.
bast: Received host key, type 'ssh-dss'.
bast: Host 'mumble.mumble.mumble.mumble' is known and matches the host key.
bast: Computing shared secret key.
bast: Verifying server signature.
bast: Waiting for NEWKEYS message.
bast: Enabling incoming encryption/MAC/compression.
bast: Send NEWKEYS, enable outgoing encryption/MAC/compression.
bast: Sending request for user-authentication service.
bast: Service accepted: ssh-userauth.bast: Trying empty user-authentication request.
input must be 8 bytes long at /usr/local/lib/perl5/site_perl/5.8.5/i686-linux/Crypt/DES.pm line 57.