use Net::SFTP::Foreign;

    my $sftp = Net::SFTP::Foreign->new($remotehost, %args) or $newerr = 1;
        if($newerr){
            $err = $sftp->error;
            push @ERRORS, "Can't sftp to $remotehost - Error: $err";
            myerr();
        }

        else
            {
                $sftp->setcwd("$remotedir$file_ext") or $newerr=1;
                if($newerr){
                    $err = $sftp->error;
                    push @ERRORS, "Can't cd to $remotedir - Error: $err";
                    myerr();
                }
                else
                {
                foreach(@file)
                {
                $sftp->binary;
                $sftp->put("$OUTDIR$_", "$_") or $newerr = 1;