use Net::SFTP;
use Net::SFTP::Constants qw/:flags/;
use strict;
use warnings;
my $filename = "testfile.dat";
my $payload = "qwertyuiop";

my %args;
$args{user} = "insaniac";
$args{password} = "xxxx";
#my $host = "moretrix.com";
my $host = "bear";
my $path = $filename;
print "file $path\n";

print "connecting\n";
my $sftp = Net::SFTP->new($host,%args) ;
print "open\n";
my $handle = $sftp->do_open($path, SSH2_FXF_WRITE | SSH2_FXF_CREAT);
print "write\n";
$sftp->do_write($handle, 0, $payload);
print "close\n";
$sftp->do_close($handle);
[download]

connecting
open
write
close
[download]

Update: Code is updated to use idsfa's suggestion

Here's a version with more testing code:

HTH

Here's the latest with your debug code:

#!/usr/bin/perl
use Net::SFTP;
use Net::SFTP::Constants qw/:flags/;
use strict;
use warnings;

my (
        $filename,
        $payload,
        $host,
        $sftp,
        %args,
        $path,
        $handle,
        $err_code, $err_mesg
        );

$filename = "testfile.dat";
$payload = "qwertyuiop";

%args = (user => "yyyyyyyyyy",
                  password => "xxxxxx");
$host = "a.b.c.d";
$path = "/network/www/ticketattach/".$filename;

print "connecting\n";
eval { $sftp = Net::SFTP->new($host, %args) };
($err_code, $err_mesg) = $sftp->status;
if($err_code)
{
    print "Err_code:$err_code | err_mesg:$err_mesg\n";
    exit $err_code
};

print "open\n";
$handle = $sftp->do_open($path, SSH2_FXF_WRITE | SSH2_FXF_CREAT);
#$handle = $sftp->do_open($path, 0x02| 0x08);
($err_code, $err_mesg) = $sftp->status;
if($err_code)
{
    print "Err_code:$err_code | err_mesg:$err_mesg\n";
    exit $err_code
};
print "write\n";
$sftp->do_write($handle, 0, $payload);
($err_code, $err_mesg) = $sftp->status;
if($err_code)
{
    print "Err_code:$err_code | err_mesg:$err_mesg\n";
    exit $err_code
};

print "close\n";
$sftp->do_close($handle);
($err_code, $err_mesg) = $sftp->status;
if($err_code)
{
    print "Err_code:$err_code | err_mesg:$err_mesg\n";
    exit $err_code
};
[download]

and the response was...


connecting
Can't call method "status" on an undefined value at ./sftp.pl line 28.
[download]

and as mentioned before I can ssh/sftp fine from the cmd line, but running this script from the same env manually does the above .. grrr... ie won't connect, forget about uploading.
Cheers
Chris

Hm... further investigations make me think there's a bug in Net::SSH::Perl or Net::SFTP.

try adding this to your code:

my %args = (
    user     => 'user', 
    password => 'password',
    ssh_args  => [ 
        debug => 1,
        options => [
            "PreferredAuthentications 'keyboard-interactive,password,h
+ostbased,publickey'",
            ]
    ],
);
[download]

and then:

eval { $sftp = Net::SFTP->new($host, %args) };
die "Connection failed: $!\n" if $!;
die "No SFTP object\n" unless $sftp;
[download]

my output goes like:

wolf: Reading configuration data /home/insaniac/.ssh/config
wolf: Reading configuration data /etc/ssh_config
wolf: Connecting to bear, port 22.
wolf: Remote protocol version 2.0, remote software version OpenSSH_4.2
+p1 Debian-4
wolf: Net::SSH::Perl Version 1.28, protocol version 2.0.
wolf: No compat match: OpenSSH_4.2p1 Debian-4.
wolf: Connection established.
wolf: Sent key-exchange init (KEXINIT), wait response.
wolf: Algorithms, c->s: 3des-cbc hmac-sha1 none
wolf: Algorithms, s->c: 3des-cbc hmac-sha1 none
wolf: Entering Diffie-Hellman Group 1 key exchange.
wolf: Sent DH public key, waiting for reply.
wolf: Received host key, type 'ssh-dss'.
wolf: Host 'bear' is known and matches the host key.
wolf: Computing shared secret key.
wolf: Verifying server signature.
wolf: Waiting for NEWKEYS message.
wolf: Enabling incoming encryption/MAC/compression.
wolf: Send NEWKEYS, enable outgoing encryption/MAC/compression.
wolf: Sending request for user-authentication service.
wolf: Service accepted: ssh-userauth.
wolf: Trying empty user-authentication request.
wolf: Authentication methods that can continue: publickey,keyboard-int
+eractive.
wolf: Next method to try is publickey.
wolf: Trying pubkey authentication with key file '/home/insaniac/.ssh/
+id_dsa'
wolf: Authentication methods that can continue: publickey,keyboard-int
+eractive.
wolf: Next method to try is publickey.
Connection failed: No such file or directory
[download]

So when I try authenticating with an ssh-key, all works out perfectly. When I try to supply a username and a password, they seem to be ignored.. maybe we need to supply a specific value to ssh_args ?
Per default, Net::SFTP uses the username that's executing the script as SSH username...

I'll keep you informed if I find a solution...

Cheers, Johnny

to ask a question is a moment of shame
to remain ignorant is a lifelong shame

Of course! How foolish of me... all we needed was debugging enabled ;-)

You're remote SSH server is *probably* not accepting cleartext password tunneling. In other words, its /etc/ssh/sshd_config is saying something like:

PasswordAuthentication no
[download]

And that's what's causing (my) error when trying to use a username and password for authentication. When I changed it to yes, and restarted the remote SSH server, the scripts works, because debugging now said:

wolf: Sending request for user-authentication service.
wolf: Service accepted: ssh-userauth.
wolf: Trying empty user-authentication request.
wolf: Authentication methods that can continue: publickey,password,keyboard-interactive.

Where it used to be (with PasswordAuthentication no):

wolf: Sending request for user-authentication service.
wolf: Service accepted: ssh-userauth.
wolf: Trying empty user-authentication request.
wolf: Authentication methods that can continue: publickey,keyboard-interactive.

So the above debugging says that the remote SSH server only accepts ssh keys or a keyboard interactive password..

My advise is: create an ssh-key for the user that runs your script, and add the public key of that user to the authorized_keys file of your remote user. This is more secure than enabling clear text password tunneling ;-)

HTH

to ask a question is a moment of shame
to remain ignorant is a lifelong shame