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