c:\windows\system32>perl -wle "print for glob shift" "C:/Program Files/*"
C:/Program

##</code><code>##

c:\windows\system32>perl -MFile::Glob=bsd_glob -wle "print for bsd_glob shift" "C:/Program Files/*"
C:/Program Files/HP

##</code><code>##

c:\windows\system32>perl -MFile::Glob=bsd_glob -wle "print for bsd_glob shift" "C:\Program Files\*"
C:\Program Files\HP