Select Code to Download

use strict;
use CGI;
...
my $bad_method = "param('foo')";
print $q->$good_method( 'foo' );
print $q->$bad_method;

@commands = (
  ['add_node','W1'],
...
    my ( $command, @args ) = @$_;
    $g->$command( @args );
}