Select Code to Download

sub foo
{
...
  my $$goodname = $_[2];
  return $goodname;
}

$name = foo('example','other', 49);
print $$name . "\n";