my $command = "tail -f /var/log/syslog";

if ( open(F, "$command | ") ) {
       while (<F>) {
        print $_."<br>";
         }	
close(F);