my $file = shift or die "USAGE: $0 [file]\n";
open CODE, $file or die "can't read $file: $!";
my $code = do {local $/;<CODE>};
eval $code;
warn $@ if $@;