Select Code to Download

#!/usr/bin/perl -w

...
    print eval ($foo),"\n";
}

#!/usr/bin/perl -w
...
        print eval sprintf($pat, @{eval $order}, @{eval $order}), "\n"
+;

}