#!/usr/bin/perl

use strict;
use warnings;
use Spreadsheet::WriteExcel;

my $workbook  = Spreadsheet::WriteExcel->new("Employees.xls");
my $worksheet = $workbook->add_worksheet("Summary");

$worksheet->insert_image('A1', 'Lenna.png');

$workbook->close();