$content_dem = "$content_dem"."DEM"."\t"."1"."\t"."1"."\n";

##</code><code>##

#Remove commas
$content =~ s!, "?!!gis;
@array = split(/"/, $content);

##</code><code>##

if (system("/bin/cp $temp_cur $final_file")) {
    printf("Error - file '$final_file' not updated.\n");
    exit(-1);
}

##</code><code>##

select STDOUT;
$| = 1;
open SAVEOUT, ">&STDOUT";
close STDOUT;
open STDOUT, ">&SAVEOUT";