perl <<EOP
#!perl

sub foo {
  VIM::Msg("Called foo");
}

sub bar {
  VIM::Msg("Called bar");
}

__END__
EOP

func! TestFoo()
  " Note, you will need to pass along any
  " parameters your VIM function is called with.
  perl foo()
endfu

func! TestBar()
  perl bar()
endfu