Select Code to Download

print "first=", $var, " second=", $var--, "\n";

do {
   local @_;
...
   alias $_[4] = "\n";        #     for $var.
   &print;
};