my @lines;
while(1){
        sleep(10);
        if (<STDIN>){#Non-blocking reading
                print "Reading lines...";
                @lines=<STDIN>;
                print "@lines";
        }else{
                print "No lines received.\n";
        }
}