Select Code to Download

use diagnostics;
use warnings;
...
my $ans = eval $c or die "[$c] doesn't work:$@";

print "b:$ans,\n";