Select Code to Download

#!/usr/bin/perl -w

...

my $result = eval $string;
print "Result of '$string' = $result\n";