use strict;
use warnings;

foreach my $pattern (@ARGV) {
    foreach (glob($pattern)) {
        print qq{$_\n};
    }
}