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

##</code><code>##

%args = ( "user" => $remuser, key_path => '/export/home/secbatch/.ssh/id_rsa' );
$sftp = Net::SFTP::Foreign->new( $remnode,%args, more => '-v', );