my $x = '~/tmp/*';
my @list = glob($x);
print join '-', @list;

$x = '/home/caillte/tmp/';
opendir(X, $x) or die "$!";
@list = readdir(X);
closedir(X);
print join '-', @list;