Miscellany

                                        elsif ($MSG[0] eq 'ACCESS') {
                                                if ($MSG[1] eq 'OP') {
                                                        if ($MSG[2] eq 'ADD') {
                                                                $auth_op{$MSG[3]} = 1;
                                                                print "Added $MSG[3] as an OP\n";
                                                        }
                                                        elsif ($MSG[2] eq 'DEL') {
                                                                delete $auth_op{$MSG[3]};
                                                        }
                                                        elsif ($MSG[2] eq 'FLUSH') {
                                                                delete @auth_op{(keys %auth_op)};
                                                        }
                                                        elsif ($MSG[2] eq 'SAVE') {
                                                                open $AUTH_OP, ">", "AUTH_HOSTS_OP" or die "Couldn't open auth file\n";
                                                                print $AUTH_OP values(%auth_op) . "\n";
                                                                close($AUTH_OP);
                                                        }
                                                        else {
                                                                print $sock "PRIVMSG $to :Syntax incorrect: ACESSS [ADD/DEL/FLUSH/SAVE]\r\n";
                                                        }
                                                }
                                        }