in reply to Further On Down the Line

Shouldn't that be: 
 my $mainfilepath = $mw->getOpenFile(-filetypes => $typesopen,
                              -defaultextension => '.xlsx'); ## xls =>
+ xls_x_

[download]
?

Also some error-checking after getting the file name, as well as 'open' would be nice.

     ..to maintain is to slowly feel your soul, sanity and sentience ebb away as you become one with the Evil.

In Section Seekers of Perl Wisdom