my @files = glob ('*.*');
print "",join("\n",@files),"\n"