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++; 
}