my $udp_server = shift @ARGV;

  if    ( $udp_server eq 'server1' ) { use constant REMOTE_HOST => 'server1'; }
  elsif ( $udp_server eq 'server2' ) { use constant REMOTE_HOST => 'server2'; }
  elsif ( $udp_server eq 'server3' ) { use constant REMOTE_HOST => 'server3'; }
  elsif ( $udp_server eq 'server4' ) { use constant REMOTE_HOST => 'server4'; }
                                else { $udp_server = '';                      }

  if ( $udp_server )
  {
    use Socket;
    use constant SIMPLE_UDP_PORT => 4001;
      :
      :