open(F,">client.el") || die ;
binmode(F) ;
$buf = pack("SC4",0x3000,split(/\./,$ARGV[0])) ;
syswrite(F,$buf,length($buf)) ;
close(F) ;
