#! perl -l

my $f = sub { "f($_[0])" };
my $g = sub { "g($_[0])" };

print $f->("x");
# f(x)
print $g->("x");
# g(x)