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
}

##</code><code>##

Does a fork(2) system call to create a new process running the
same program at the same point.  It returns the child pid to the
parent process, C<0> to the child process, or C<undef> if the fork is
unsuccessful.  File descriptors (and sometimes locks on those descriptors)

##</code><code>##

MemTotal:       189248 kB
MemFree:          7540 kB
SwapTotal:      393156 kB
SwapFree:       380144 kB