my $name = "/var/log/squid/access.log";
my $res = ban ($_);
my $ref=tie *FH,"File::Tail",(name=>$name);
     while (<FH>) {
        m/\/sorry\// && hold ($_);
}