$RESULT = &getdata(\%DATA,\%CONFIG,\%STATIC);  ##read config-file
...
if ($PROTO =~ m/ssh/i){
    %DATA = &connect2cpe_SSH(\%DATA,\%CONFIG,\%STATIC); 
}else{
    %DATA = &connect2cpe_TELNET(\%DATA,\%CONFIG,\%STATIC);
}

##</code><code>##

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

##</code><code>##

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