my %args = (
	user => "uname",
	password => "pword"
	);
	
	my $sftp = Net::SFTP::Foreign::Compat->new($rhost, %args);
	$sftp->die_on_error("Unable to establish connection");
	
	
	for(@files) {
		my $filename = basename($_);
		my $remotefile = $rdir . $filename;
		$sftp->put($_, $remotefile);
				
	}

##</code><code>##

 
Use of uninitialized value in numeric ne (!=) at /usr/opt/Perl5_10/lib/perl5/site_perl/5.10.1/Net/SFTP/Foreign/Common.pm line 79.
Use of uninitialized value in numeric ne (!=) at /usr/opt/Perl5_10/lib/perl5/site_perl/5.10.1/Net/SFTP/Foreign/Common.pm line 79.
Use of uninitialized value in numeric ne (!=) at /usr/opt/Perl5_10/lib/perl5/site_perl/5.10.1/Net/SFTP/Foreign/Common.pm line 79.
Use of uninitialized value in numeric ne (!=) at /usr/opt/Perl5_10/lib/perl5/site_perl/5.10.1/Net/SFTP/Foreign/Common.pm line 79.
Use of uninitialized value in numeric ne (!=) at /usr/opt/Perl5_10/lib/perl5/site_perl/5.10.1/Net/SFTP/Foreign/Common.pm line 79.
Use of uninitialized value in numeric ne (!=) at /usr/opt/Perl5_10/lib/perl5/site_perl/5.10.1/Net/SFTP/Foreign/Common.pm line 79.

##</code><code>##

if ($sftp->{_error} != Net::SFTP::Foreign::Constants::SFTP_ERR_CONNECTION_BROKEN()) {
            $sftp->{_error} = 0;
        }