$a=q|a\{bc.d/*|;print "pattern <", $a, "> globs to <", (glob $a), ">\n";
print "$_\n" for sort keys %INC;