perl ./script.pl $(ls *.txt | sed 's/^/-file /')

##</code><code>##

perl ./script.pl -file myfile.txt -file yourfile.txt -file ourfile.txt

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long qw (GetOptions);

my (@Files);

Getopt::Long::Configure("no_ignore_case", "prefix_pattern=(--|-|\/)");
GetOptions ("file=s@" => \@Files);

my @globs = map {glob ($_)} @Files;
print "glob: $_\n" for @globs;

##</code><code>##

./script.pl -file "*.txt"

##</code><code>##

./script.pl -file "*.txt"

##</code><code>##

myfile.txt
yourfile.txt
ourfile.txt

##</code><code>##

./script.pl -file myfile.txt -file yourfile.txt -file ourfile.txt

##</code><code>##

myfile.txt
yourfile.txt
ourfile.txt