my $comdb_copy_obj= new Net::Telnet (Timeout => 20, Input_log=>($PrepareENB_Telnet_copycomdb_log)); if ($comdb_copy_obj->open(Host => $tftp_ServerIP, Port =>'23') != 1) { print ("connection success"); return "ERROR_CONNECTION" ; }