# Not real Perl code right now!
IF ....
  sub f { .... }
  sub g { .... }
ELSE
  sub f{ ... }
  sub g { ... }
END