sub glob2pat {
    my $globstr = shift;
    my %patmap = (
        '*' => '.*',
        '?' => '.',
        '[' => '[',
        ']' => ']',
        '-' => '-',   # Added by me
    );
    
    $globstr =~ s{(.)} { $patmap{$1} || "\Q$1" }ge;
    
    return '^' . $globstr . '$';
}