Select Code to Download

$RESULT = &getdata(\%DATA,\%CONFIG,\%STATIC);  ##read config-file
...
...
}else{
    %DATA = &connect2cpe_TELNET(\%DATA,\%CONFIG,\%STATIC);
}

                    $STATIC->{$T[0]}=$T[1];
...
                $DATA{$IP}->{COMMANDS} = \@COMMANDS;
                $DATA{$IP}->{MATCHES} = \@MATCHES;

if ($#ARGV < 0 ) { &help($0); exit 0;}
...
    'help|h'   => sub { &help($0); exit 0;}
     ) || die(&help($0));