use Tie::Scalar::Watch;  # imports 'watch'

my $x = 10;
watch { $_[0] > 5 } $x;

# $x is now transparently tied!
# and you thought tying was transparent already!

while (1) {
  print "$x\n";
  $x--;
}