Select Code to Download

# Version Zero
sub post_process
...
             `touch $to_base.FLG`;
        }
}

# Version One
sub post_process
...
        # return `touch $filename`;
        return 1;
}

my $TEST_MODE = 1;
sub file_exists
...
        }
        return (-f $filename);
}