$receive_T = $receive_Tk->ROText(-relief=>'groove',-width=>72,-height=>20,-font=>'Courier 8 bold')->pack(); 
$receive_T->repeat(5000,\&Receive2);