#!perl

use 5.012; # strict, //
use warnings;
use Excel::Writer::XLSX;
*CSV = *DATA;   # makes CSV an alias to the __DATA__ section, so I can add CSV data to the end of the script, rather than creating a separate file; you will not want this line in your application


##</code><code>##

__DATA__
freq,b xtalk
10,0.000001
20,0.000002
50,0.000005
100,1.00E-05
200,2.00E-05
500,5.00E-05
1000,1.00E-04

##</code><code>##

Can't use string ("solidfill") as a HASH ref while "strict refs" in use at c:/usr/local/apps/berrybrew/perls/system/perl/site/lib/Excel/Writer/XLSX/Chart.pm line 1158.
##</code><code>##

$chart->set_legend(
            position => 'overlay_top_right',
            fill => { color => 'red' },
          );

##</code><code>##

#$chart->set_legend({ 'font'=> { 'bold' => 1, 'italic' => 1}}); <<== taken from CPAN example, it generates error
##</code><code>##

$chart->set_legend( font => { bold => 1, italic => 1 } );

##</code><code>##

$chart->set_legend(
            position => 'overlay_top_right',
            fill => { color => 'red' },
            font => { 'bold' => 1, 'italic' => 1},
          );