use File::Glob qw( bsd_glob );
# Wildcard-expand @ARGV:

BEGIN {
    @ARGV= map { bsd_glob $_ } @ARGV
}