what's wrong with this perl code..?

[sarah g]

use File::Tail;
use LWP::Simple;
use strict;
use warnings;

$|++;

my $url="http://kodo.us/userfiles/Hamooza/rules.txt";
my $line;
my $content=get($url);
open CON,">rules.txt";
print CON $content;
close CON;

open AN,"<rules.txt";
my @rules=<AN>; # read the rules in to an array
close AN;

my $name="C:\users\mizo\desktop\log.txt";
my $file=File::Tail->new(name=>$name,maxinterval=>1,interval=>1,adjustafter=>1);
while(defined(my $line=$file->read)){
for (@rules) {
my $rule=$_;
if ($line=~m/($rule)/i){
print "$line";
last;

}
}
}