sub open_port
{
if($listbox1->curselection) 
{
$portname=$listbox1->index($listbox1->curselection());
$port_opened=1;
&port_init;
}
else
{
&portwarning;
}