my $dir = '.'
my @list = glob($dir);