Select Code to Download

foo()
{
print $1
}

% foo bar
%bar

#!/usr/bin/perl -w

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

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