use Tie::Scalar::Watch;
my $x = 10;
tie $x, 'Tie::Scalar::Watch', $x, sub { $_[0] > 5 };