for(glob("*.jpg"))
{
  eval {
    print "$_\n";
    ...
  };
  warn $@ if $@;
}