sub info() {
  my ( $nick, $reply ) = @_;
}