if ($line =~/port=([0-9]+)/){
                        $port= $1;
                };