$Btn_1 = $Frame_1 ->Button(-text => "Get details",
     -command => sub{Get_Item_Details ()} );
$Btn_1 ->pack;


sub Get_Item_Details () {

$Label_4 -> configure(-text => "Starting Telnet . . .");
#	Start TELNET dialog;

$Label_4 -> configure(-text => "Sent User Name . . .");
#	User Procedure;

$Label_4 -> configure(-text => "Sent Password . . .");
#	Password Procedure

#	data received is OK . . . et cetera	;
#close TELNET session ;
}