Select Code to Download

sub soundplay {
  my($file) = shift;
...
  }
  return 1;
}

sub print_whois_chans_or_oper {
  my(@line) = split(" ",$_[0]);
...
  }
  return 1;
}