#! /usr/bin/perl -w
use strict;
use diagnostics;
while (1) {
    print "HERE\n";
    open FH, "<pipe";
    my $data = <FH>;
    close FH;

    print "D: $data\n";
    for ( split /ROSE/, $data ? $data : '' ) {
        if ( /^RELOAD/ ) {

        }
        else {
            sleep 3;
        }
    }
} # while 1