if ($use_socket) {
  use Socket;         # oops!  Socket will get loaded at compile-time
                      # before $use_socket is even evaluated
}