1: use strict; 2: use warnings; 3: use IO::Socket;