Select Code to Download

use strict;
use IO::Socket;
...
        print "Waiting to do service...\n";
    }
}

use strict;
use IO::Socket;
...
        }
    }
}