my $udp_server = shift @ARGV;

  my $trans_serv;
  my $remote_host;
  my $remote_port;
  my $destination;

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

    use constant REMOTE_HOST => 'myservername'; 
  # use constant REMOTE_HOST => $udp_server;

    $trans_serv  = getprotobyname('udp');
    $remote_host = gethostbyname(REMOTE_HOST);
    $remote_port = SIMPLE_UDP_PORT;
    $destination = sockaddr_in($remote_port, $remote_host);

    socket (UDP_SOCK, PF_INET, SOCK_DGRAM, $trans_serv);
  }