## SFTP Connection
my %args = (user      => $user,
    	    password  => $pass,
       	 debug     => 1,
            ssh_args => { interactive => 1,
                         identity_files => 
                                   [ "/usr2/username/.ssh/id_rsa"], 
                        protocol=>'2,1' 
                     } 
           );

my $sftp = Net::SFTP->new($host, %args) or
	do
	{
		print "Unable to connect to $name\n";
		print "Aborting Connection\n"; 
		goto END;
	};