Close but no cigar

• First let's see some wrong answers.

• What's wrong with this?

        sub halts {
          my ($source_code, $input) = @_;

          my $function = eval $source_code;
          $function->($input);
          # I guess it halted!
          return 1;
        }