if($strMessage =~ /^\$definer\Edie/){
print $sckSocket 'QUIT' . "\r\n";
}