#!/usr/bin/perl

# usage:
#   myscript *.txt
#   myscript `ls *.txt`

use strict;
use warnings;

my @files = @ARGV;

...