#!/usr/bin/perl
use strict;
use warnings;

for (@ARGV) {
	for (glob) {
		print $_,"\n";
	}
}