Select Code to Download

sub change_node_names { 
  my ($self, $node, $code) = @_;
...
  $name =~ s/wrongnode/rightnode/;
  return $name
} );