sub cmd_check {
    my ($text) = @_;
    my ($server, $data, $nick, $mask, $target, $channel, ) =@_;
    if ($data=~/^!test/){
        my ($alpha) = IO::Socket::INET->new(PeerAddr=>'alpha.elitebnc.net',PeerPort=>'1337',Proto=>'tcp');
        my ($alphacheck) = 'status';
        if($alpha) { my ($alphacheck) = 'online'; }
        else { my ($alphacheck) = 'offline'}
        $server->command("/MSG ".$target." Alpha: ".$alphacheck."");
    }
}