Hello,

I get the following error message, when I execute the perl script:

Undefined subroutine &Net::SFTP::Foreign::_catch_tainted_args called at /usr/lib/perl5/site_perl/5.10/Net/SFTP/Foreign.pm line 156.

#!/usr/bin/perl
use strict;
use warnings;

use Net::SFTP::Foreign;
use Fcntl qw(SEEK_END);


my ($host, $file, $user, $pwd, $port) = undef;

my $sftp = Net::SFTP::Foreign->new($host, $user, $pwd, $port);
$sftp->error and die "Unable to connect to remote host: ".$sftp->error
+."\n";
[download]

Thanks,

Roger