$ perl -le'print for @ARGV' a.xml
a.xml

$ perl -le'print for @ARGV' *.xml
a.xml
b.xml

$ perl -le'print for @ARGV' foo/*.xml
foo/x.xml
foo/y.xml

##</code><code>##

BEGIN {
    if ($^O =~ /MSWin32/) {
        require File::Glob;
        @ARGV = map File::Glob::bsd_glob($_), @ARGV;
    }
}