Help for this page
sub soundplay { my($file) = shift; ... } return 1; }
sub print_whois_chans_or_oper { my(@line) = split(" ",$_[0]); ... } return 1; }