Net::SFTP problemer. sftp virker

["Martin Møller Pedersen" <sslug@sslug>]

Jeg har brug for at scripte noget sftp. Jeg er løbet lidt sur i expect, så jeg
har prøvet med perl og Net::SFTP istedet for, men det virker heller ikke.

Hjælp, please.

sslug@sslug:~/scripts/ftp$ sftp sslug@sslug
Connecting to localhost...
Password:
sftp> quit

fint det virker.

Men i perl:
sslug@sslug:~/scripts/ftp$ cat sftp.pl
#!/usr/bin/perl -w

use Net::SFTP;

$SFTP_HOST="localhost";
$SFTP_USERNAME="mm";
$SFTP_PASSWORD="secret";

%args = (
 user => $SFTP_USERNAME,
 password => $SFTP_PASSWORD,
 debug => 1
        );

$ftp=Net::SFTP->new($SFTP_HOST,%args);

sslug@sslug:~/scripts/ftp$ ./sftp.pl
Name "main::ftp" used only once: possible typo at ./sftp.pl line 15.
sirius: Reading configuration data /home/mm/.ssh/config
sirius: Reading configuration data /etc/ssh_config
sirius: Connecting to localhost, port 22.
sirius: Remote version string: SSH-2.0-OpenSSH_3.8.1p1 Debian-8.sarge.4

sirius: Remote protocol version 2.0, remote software version
OpenSSH_3.8.1p1 Debian-8.sarge.4
sirius: Net::SSH::Perl Version 1.30, protocol version 2.0.
sirius: No compat match: OpenSSH_3.8.1p1 Debian-8.sarge.4.
sirius: Connection established.
sirius: Sent key-exchange init (KEXINIT), wait response.
sirius: Algorithms, c->s: 3des-cbc hmac-sha1 none
sirius: Algorithms, s->c: 3des-cbc hmac-sha1 none
sirius: Entering Diffie-Hellman Group 1 key exchange.
sirius: Sent DH public key, waiting for reply.
sirius: Received host key, type 'ssh-dss'.
sirius: Host 'localhost' is known and matches the host key.
sirius: Computing shared secret key.
sirius: Verifying server signature.
sirius: Waiting for NEWKEYS message.
sirius: Enabling incoming encryption/MAC/compression.
sirius: Send NEWKEYS, enable outgoing encryption/MAC/compression.
sirius: Sending request for user-authentication service.
sirius: Service accepted: ssh-userauth.
sirius: Trying empty user-authentication request.
sirius: Authentication methods that can continue:
publickey,keyboard-interactive.
sirius: Next method to try is publickey.
Permission denied at /usr/local/share/perl/5.8.4/Net/SFTP.pm line 62


/Martin

--
"All general statements are false."
"If atheism is a religion, then not collecting stamps is a hobby."

A: Fordi det ændrer rækkefølgen folk normalt kommunikerer på.
Q: Hvorfor er top-svar en dårlig ting?
A: Top-svar.
Q: Hvad er det mest irriterende i e-mail?

"We are all atheists about most of the gods that humanity
has ever believed in.  Some of us just go one god further."