sub Copy_config
{
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" ;
                   }
	
	my $user = "tdd";
	my $password = "tdd123";
    my $comdbcopy_cmd = "cp -rf /home/tdd/LTE/ATF/TDD_ATF/$BW/$TM/$UD/eNBcfg10.102.81.60.bin /tftpboot/" ;
	my $prompt = '/tdd:~$/i';
	
    $comdb_copy_obj->open($tftp_ServerIP);
	$comdb_copy_obj->waitfor('/tdd login:/i');
  	$comdb_copy_obj->print($user);
	$comdb_copy_obj->waitfor('/Password:/i');   	
	$comdb_copy_obj->print($password);	
	1. $comdb_copy_obj->waitfor('/tdd:~$/i');
	2. $comdb_copy_obj->waitfor(Match => $prompt, Timeout => $comdb_copy_obj->timeout * 10 );
	3. $comdb_copy_obj->waitfor($comdb_copy_obj->prompt);
   	$comdb_copy_obj->print($comdbcopy_cmd);
	$comdb_copy_obj->waitfor(Match => $prompt, Timeout => $comdb_copy_obj->timeout * 10 );
	#$comdb_copy_obj->waitfor('/tdd:~$/i');
	#$comdb_copy_obj->waitfor($comdb_copy_obj->prompt);
	$comdb_copy_obj->print('exit');		
	$comdb_copy_obj->close;
}