spaces before function calls in perl

[Karl Berry]

The standard GNU style is to put spaces before function calls, and
between function arguments, as in:

  foo (1, 2, 3);

Does anyone happen to know of a way to get these spaces inserted
automatically (that is, when typing a "(" or ","), in a perl mode?  I
can imagine some ways to hack it up, but it seemed like it might already
exist.  I just couldn't find it.

Thanks,
Karl