chdir($path);
for (glob("*.jpg"))
{
   print $_."\n";
}