if($text =~ /!about/gi)
{
  &snd_msg("About");
}

sub snd_msg
{
  my($msg) = @_;
  print $sock "privmsg ",$channel," \:",$msg,"\n";
}