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

# 1106821

my @dir = @ARGV;

for my $dir(@dir) {
    print glob "\"$dir/*\"\n";
}