my @files = glob("C:/temp/*.pl");
print join("\n",@files),"\n";    #full paths