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