program.pl file*

##</code><code>##

program.pl file1 file2 ...

##</code><code>##

use File::Glob qw( bsd_glob );
@ARGV = map bsd_glob($_), @ARGV;