I have a very simple perl script which does the following:

use Net::SFTP;
my %args = (
user => $user,
password => $password,
debug => $debugging
my $sftp = Net::SFTP->new($server, %args);

This is the output I get:
Reading configuration data /root/.ssh/config
Reading configuration data /etc/ssh_config
Allocated local port 1021.
Connecting to, port 22.
Remote version string: SSH-1.99-OpenSSH_3.4p1
Remote protocol version 1.99, remote software version OpenSSH_3.4p1
Net::SSH::Perl Version 1.30, protocol version 2.0.
No compat match: OpenSSH_3.4p1.
Connection established.
Sent key-exchange init (KEXINIT), wait response.
Algorithms, c->s: 3des-cbc hmac-sha1 none
Algorithms, s->c: 3des-cbc hmac-sha1 none

At this point the program just hangs....

If I just use regular FTP it works:
use Net::FTP;
$ftpobj = Net::FTP -> new ($server);
$ftpobj -> login($user,$password);
$ftpobj -> get ($downloadFile);
$ftpobj -> quit;

Also if I just run sftp from the shell directly (e.g sftp
root@xx.xx.xx.xx) it also works.

Does anyone know why the perl script is not working or what I can do to
further debug this.