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'

a