Select Code to Download

#!perl
use strict;
...
open(my $fh, ">", "$dir\\Thumbs.html")  or die "Can't open output file
+";
print $fh $htmlpage;
close $fh;

Option Explicit
Const ksFactor As Double = 0.177346958265686
...
        Sheet1.Columns(col).ColumnWidth = Sheet1.Columns(col).ColumnWi
+dth + 1
    Next col
End Sub

use strict;
use warnings;
...
$setup->{Zoom}           = 0;                #False
$setup->{FitToPagesWide} = 1;
$setup->{FitToPagesTall} = 1;

#!perl
use strict;
...
binmode $fh;
print $fh $img->png;
close $fh;