I have a function defined in my .profile that is similar to the following:

foo()
{
print $1
}
[download]

I can execute it from the command line just fine...

% foo bar
%bar
[download]

However if I try and execute it from within Perl...

#!/usr/bin/perl -w

$foo=`foo bar`;
print $foo;
[download]

Here's what I get...

%foo.pl
Can't exec "foo": Permission denied at x.pl line 3.
Use of uninitialized value in print at x.pl line 4.
[download]

I've tried using "system" and "qx" rather than bacticks but to no avail.
Anyone know how to accomplish this?