Select Code to Download

#!C:/perl/bin/perl.exe

...
my $ans = eval $question;
die("Compile error: $@\n") if $@;
print("ans = ", ($ans ? 'true' : 'false'), "\n");