Select Code to Download

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

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