in reply to Problem With Perl IRC Server

Go for $nick_check=$fhs(lc ($nick));.