Select Code to Download

#!/usr/bin/perl
use strict;
...
print "Evaluating Test Condition: ",$bool,'...',"\n";
print "Result is: ", eval($bool),"\n";