sub confirm(){
        if($gGui{single}==1){
print "source variable BEFORE fix_path $gGui{original_source}\n";
                $gGui{original_source} = \&fix_path("$gGui{original_source}");
print "source variable AFTER fix_path $gGui{original_source}\n";
.
.
.