Select Code to Download

#!/usr/bin/perl
use strict;
...
    my $expred = eval_expr($_);
    printf "%40s = %-20s %s\n", $_, $expred, $evaled;
}