#!/usr/bin/perl

$spec=$ARGV[0];

foreach (glob($spec)) {
    open IN, "$_";
    while (<IN>) { print $_; }
    close IN;
}