use Socket;
socket (SOC, PF_INET, SOCK_STREAM, 6) || die;
my $dest = pack('S n a4 x8',2,555,$svradr);
if (! connect (SOC, $dest)) {$errorcode=1;}