Bug in Perl script

I have a script that runs command tail with open descriptor.
After 30 seconds, I close descriptor.  But descriptor not closed.
When script is closed tail is present in ps aux.

$log_file =3D path_to_log;
eval {
    local $SIG{ALRM} =3D sub { die; };
    alarm (30);
    open (LOG, "tail -F $log_file|") || die "=F3an`t open logfile=20
\"$log_file\"";
    while (<LOG>) {
        ***
    }
    alarm (0);
};
close (LOG);
print ("Ok\n");
exit(0);

This code is good working in FreeBSD 8.2, but in FreeBSD 9.0 not working.=

--
Best Regards
Alexander

_______________________________________________
freebsd-current@freebsd.org mailing list
http://lists.freebsd.org/mailman/listinfo/freebsd-current
To unsubscribe, send any mail to "freebsd-current-unsubscribe@freebsd.org"