Ah, that tilly; for real fun, move the BEGIN {print MULTIPLIER; print "\n"}
down through the code; first before everything (trouble:
MULTIPLIER as file handle). Then after first use constant
(gets you '25') then after package second ('nother file
handle mistake), finally after
(or right before) print MULTIPLIER * $x, "\n";, get's you '2'