Select Code to Download

push @ops, "rename(".text_to_perl_lit($file_from).", ".text_to_perl_li
+t($file_from).");";
...
...
} else {
   eval $program;
}

sub xrename {
   if ($preview) {
...
}

xrename(...);