Connecting to Oracle using VIM

function! VoConnect(username, password,service) 
  perl << ENDP
  use VimOracle;
  $username=VIM::Eval("a:username");
  $password=VIM::Eval("a:password");
  $service =VIM::Eval("a:service");

  $vim_oracle=VimOracle->Connect($username, $password,$service);
ENDP
endfunction

function! Vo (service) 
  perl << ENDP
  $service = VIM::Eval("a:service");

  if ($service eq "abc") {
    #VIM::Msg("sec");
    VIM::DoCommand('call VoConnect("user","password","abc")');
  }
ENDP
endfunction

function! VoSel (stmt)
  perl << ENDP

  $stmt = VIM::Eval("a:stmt");
  $vim_oracle->Sel($stmt);
ENDP
endfunction

function! VoStmt(stmt) 
  perl<<ENDP
    $stmt = VIM::Eval("a:stmt");

    $vim_oracle->Stmt($stmt);
ENDP
endfunction

function! VoDesc(object)
  perl<<ENDP
    $object = VIM::Eval("a:object");
    $vim_oracle->Desc($object);
ENDP

endfunction