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