push @ops, "rename(".text_to_perl_lit($file_from).", ".text_to_perl_lit($file_from).");";
...

my $program = join '' map "$_\n", @ops;
if ($preview) {
   print($program);
} else {
   eval $program;
}