foo()
{
print $1
}

##</code><code>##

% foo bar
%bar

##</code><code>##

#!/usr/bin/perl -w

$foo=`foo bar`;
print $foo;

##</code><code>##

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