sub et_search { my ($self,$message) = @_; my $args = $message->command_input(); return $self->respond($message, "!et server port") unless $args; my @args = split /\s+/, $args; return unless scalar @args; my $host = shift @args; my $port = shift @args; return $self->respond( $message,("BLEH") ); }