%args = ( "user" => $remuser, "password" => $rempswd );
$sftp = Net::SFTP::Foreign->new( $remnode,%args, stderr_discard => 1 );

##</code><code>##

 
$sftp = Net::SFTP::Foreign->new( $remnode
,key_path => '/export/home/secbatch/.ssh/id_rsa'
, stderr_discard => 1);

##</code><code>##

if ( $sftp->error )	{			print "Connect Failed!";
	print "\n$@"; ##if $DEBUG;	
	print "\nConnect error: " . $sftp->error . "\n";
	print "\nConnect status: " . $sftp->status . "\n";