sub soundplay {
  my($file) = shift;
  if ($win32) { # Are we using Win32 X-Chat?
    if ($fork) { # Does the user want to fork()?
      my($pid) = fork();
      if (!$pid) {
        if (-e $file) { Win32::Sound::Play($file); }
        elsif (-e "sounds/$file"){Win32::Sound::Play("sounds/$file");}
        elsif (-e "data/$file") { Win32::Sound::Play("data/$file"); }
        elsif (-e "dcc/$file") { Win32::Sound::Play("dcc/$file"); }
        return 1;
      }
      return 1;
    }
    if (-e $file) { Win32::Sound::Play($file); }
    elsif (-e "sounds/$file"){Win32::Sound::Play("sounds/$file");}
    elsif (-e "data/$file") { Win32::Sound::Play("data/$file"); }
    elsif (-e "dcc/$file") { Win32::Sound::Play("dcc/$file"); }
  }
  return 1;
}