sub run {
    my ($f) = @_;
    open my $in, '<', $f or die $!;
    my $code = do { local $/; <$in> };
    eval $code
}