open (FH, "$statusfile") or die "Unable to open file: $!";
$DELAY = 5;

for(;;) {

while(<FH>) {
print $_;
}
sleep $DELAY;
seek(FH, 0, 1);
}
}