Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  # easy! It's an error...it's 265...it's 50?  Find out :-)
print MULTIPLIER * $x, "\n";

BEGIN{print MULTIPLIER; print "\n";}

BEGIN {print MULTIPLIER => "\n";}

BEGIN {print MULTIPLIER * sub{return MULTIPLIER}, "\n";}
  # which really ought to be written as below to get 
  # sane results (real obfuscation value there,
  # but not really a namespace issue)
BEGIN {print MULTIPLIER * &{sub{return MULTIPLIER}}, "\n";}