Add: @ARGV= map { glob($_) } @ARGV   if  $^O =~ /MsWin/i; near the top of your script for a simple work-around.

You can also recompile Perl such that it does this for you.

        - tye (but my friends call me "Tye")