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";
.
.
.

##</code><code>##

sub fix_path{
        my ($path) = @_;
        my @patharray= split '/', $path;
        my @newpatharray;  
        $path = "";
        foreach (@patharray){
                $_ =~s/ /_/g;
                $_ .= "\\";
                push @newpatharray, $_;
        }#foreach
        foreach (@newpatharray){
                $path .= $_;
        }#foreach
        return $path;
}#fix_path