$|++; # force auto-flush (see perldoc perlvar)

while (1) {
  if ($cond == 1) {
    print "1\n";
  } else {
    print "2\n";
  }
  sleep 10;
}