Select Code to Download

    my( $foo, $bar ) = @_;

    my $foo = shift;
    my $bar = shift;

sub x {
  $_[0] =~ s/foo/bar/;
  $_[0];
}
print x('food'), "\n"; # does not work