sub escape {         
    my ($path) = @_;                        
    if ($path =~ /\\/) {                    
        $path =~ s/\\/\\\\/g;               
    }
    if ($path =~ /\$/) {
        $path =~ s/\$/\\\$/g;
    }
    return $path;
}

sub wrap_with_quotes {
    my ($path) = @_;
    if ($path =~ /( |\;|\!)/) {
        return '"'.$path.'"';
    }
    return $path;
}