open my $pipe => "tail -f /syslog.log" or die "Fork failed: $!";
    while (<$pipe>) {
        ... whatever ...
    }