$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);
}