my ($port, $sname, $rem) = split /\t/;