My first Perl IRssi script problem :D

Irssi::command_bind check => sub {
    my ($text) = @_;
    Irssi::print("Checking host: $1 and port: $2");
    print 'Use /check [host] [port] ';
};