#!/usr/bin/perl
use strict;
use warnings;
use Excel::Writer::XLSX;
use MIME::Lite;

my $report_file = 'hyperlink.xlsx';
# Create a new workbook and add a worksheet
my $workbook = Excel::Writer::XLSX->new($report_file);

my $worksheet = $workbook->add_worksheet('Hyperlinks');

# Add the standard url link format.
my $url_format = $workbook->add_format(
    color     => 'blue',
    underline => 1,
);

$worksheet->write( 'A1', 'Some Content');
$worksheet->write( 'A3', 'http://www.perl.com/?a=1&b=2', $url_format, 'Perl home with query string' );

$workbook->close();

my $msg = MIME::Lite->new(
    From    => 'noreply@example.com',
    To      => 'you@example.com',
    Subject => "Testing Report - 2012-09-27",
    Type    => 'multipart/mixed'
);
$msg->attach(
    Type => 'text/plain',
    Data => 'This is a testing email',
);
$msg->attach(
    #Type        => 'AUTO',
    #Type        => 'application/vnd.ms-excel',
    Type        => 'application/vnd.openxmlformats-officedocument.spreadsheetml.sheet',
    Path        => $report_file,
    Disposition => 'attachment',
);
$msg->send();

__END__