Practical Perl Tools: Constant as the Northern $*