(Perl) The Tie::BoundedInteger module