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