c:\scratch>dir /B
file1
file2
file3

c:\scratch>perl -wnl -e "BEGIN{ print qq(Arguments: @ARGV); exit; }" *
Arguments: *

c:\scratch>|

##</code><code>##

Linux > ls
file1  file2  file3
Linux > perl -wnl -e 'BEGIN { print "Arguments: @ARGV"; exit; }' *
Arguments: file1 file2 file3
Linux > |

##</code><code>##

package Glob::Auto;
use strict;

BEGIN {
    @ARGV or return;                            # done if no arguments
    @ARGV = map { -e ? $_ : glob $_ } @ARGV;    # glob anything that doesn't exist
}

1;