my $entered;
while(1) {
   print "Entered while loop\n" unless $entered++;
   # get input, read file, read socket, or whatever here
   #  ...
   if ( $test ) {
     #...
     last;
   }
   sleep(10);
}