sub info() {
    my $nick  = $_[0];
    my $reply = $_[1];
    my $val   = admin($nick);
    if ( $reply =~ /a/ ) {
        if ( $val == 1 ) {
            @info;
            foreach my $n (@info) {
                writ1("$n");
            }
        }
    }
    else {
        if ( $val == 1 ) {
            @info;
            foreach my $n (@info) {
                writ1("$n");
            }
        }
        else {
            pm( $nick, "^B^C4,1[x] Not auhtorized to see this!^C^B" );
        }
    }
}