use strict;
use IO::Socket qw(:DEFAULT :crlf);