Well, maybe this is what you want:

# store a reference to a sub
my $coderef = sub
{ 
  print shift || "Foo";
  print "\n";
};

# execute code, with or without arguments
$coderef->();
$coderef->('Bar');
$coderef->();
[download]

It also works if you need to eval a string, then you can do like this:

my $code =<<'CODE';
  print shift || "Foo";
  print "\n";
CODE

my $coderef = eval"sub{$code}";
[download]

---

You have moved into a dark place.
It is pitch black. You are likely to be eaten by a grue.