while ($a = $sth->fetchrow_hashref()) { 
  $worksheet->write($row,0, $a->{EmployeeID}, $number); 
  $worksheet->write($row,1, $a->{FirstName}, $bold); 
  $worksheet->write($row,2, $a->{LastName}, $bold); 
  
  # Change directory and filename to suit.
  my $imgfile = './images/'.$a->{'EmployeeID'}.'.jpg'; # or png,bmp
  open OUT,'>',$imgfile or die "Could not open $imgfile : $!";
  binmode OUT;
  print OUT $a->{'Photo'};
  close OUT or die "Could not close $imgfile : $!";
  $worksheet->insert_image($row,3, $imgfile);
  # delete file 
  unlink($imgfile) or warn "Could not unlink $imgfile: $!";;
  
  autofit_columns($worksheet); 
  $row++; 
}
[download]

Does'nt matter, anywhere

I created a folder images but its giving me the same error and the folder is empty. Thanks for your quick help.

Thanks Poj, I added your code to my script and its giving me the following error :

Could not open ./images/1.jpg : No such file or directory at emp.pl li
+ne 62.
[download]

Any idea why ? all images are with ext. jpg. Thanks for your kind help. Rgds. Terry

Nope, I don't even have a subfolder images in the directory where I am executing the script :)

Hi Poj, I does work !!! it did create a file i.e. test1.txt with TEST printed inside. Thanks Terry

Hi Poj, Your script works fine only the deleting the images is causing the problems :

# delete file 
unlink($imgfile) or warn "Could not unlink $imgfile: $!";;
[download]

Many thanks for your kind help !! Rgds Terry