#!/usr/bin/perl -w

use strict;
use Excel::Writer::XLSX;

my $path = '/tmp';

my $time = time();
my $stamp = $time . '-' . $$;

my $filename = "$path/$stamp.xlsx";

# Create a new Excel workbook
my $workbook = Excel::Writer::XLSX->new($filename);

# Add a worksheet
my $worksheet = $workbook->add_worksheet();

# set header format
my $format = $workbook->add_format( bold => 1, color => 'black');

$worksheet->write(0, 0, 'Name', $format);
$worksheet->write(1, 0, 'Mister Mister');
$worksheet->write(2, 0, 'Mäster Mäster');

$worksheet->autofilter(0, 0, 2, 0);
$worksheet->freeze_panes(1, 0);