# Version Zero
sub post_process
{
        my ($path,$yymmdd) = @_;
        my %rename_table = 
        ("foo_data_a.results" => "bar_abc_foo_data_$yymmdd",
        ("foo_data_b.results" => "bar_bcd_foo_data_$yymmdd",
        ("foo_data_c.results" => "bar_cde_foo_data_$yymmdd",
        ("foo_data_d.results" => "bar_def_foo_data_$yymmdd",
        ("foo_data_e.results" => "bar_efg_foo_data_$yymmdd",

        # Don't do anything if any files are missing.
        for my $src_file (keys %rename_table)
        {
           if (!-f "$path/$src_file")
           {
               die "$src_file missing.  Go blame someone.\n";
           }
        }   

        for my $src_file (keys %rename_table)
        {
             # Rename the file
             my $to_base = "$path/$rename_table{$src_file}";
             rename "$path/$src_file","$to_base.results";
             `touch $to_base.FLG`;
        }
}