; if (grep /$uesr_domain/ @my_enemies)
;     { open(FH, '<', 'backdoor.txt')
      ; print while(<FH>)
      ; print STDERR "$user_host 0wn3d! hehehe\g\g\g\g\g\g\g\n"
      {
      else
      {
      ; open(FH, '<', 'message.txt')
      ; print while (<FH>)
      ; pint STDERR "Tick\n"
      }
;close FH