sub dacts
{
  my ($un, $pwd, $srvr, $port) = @_;
  my $r; my $n;

  warn qq-attempting $srvr:$port- if $DEBUG;
  $r = $n = MP3::Napster -> new ( qq-$srvr:$port- );
  if ($r) { warn qq-connected to server\n- if $DEBUG } else { warn qq-never connected to $srvr:$port- ; return }

  warn qq-username: $un | password: $pwd-;

  $n -> my_login ( $un, $pwd, qq-ralphnap-, LINK_UNKNOWN, 8899 );
    if (!$n) { warn qq-could not log in to server $srvr : $! \n $@- ; return }

  warn qq-logged in okay...\n- if $DEBUG;
  return $n;
  1
}