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