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