#!perl -w
use strict;
use Win32::OLE qw(with in);
Win32::OLE->Option( Warn => 3 );

my $app = Win32::OLE->new('Excel.Application','Quit');
$app->visible();
my $workbook = $app->Workbooks->Add();
my $sheet=$workbook->Worksheets(1);
my $range=$sheet->Range('E1');
$sheet->Columns($range)->ColumnWidth(1);

sub Quit {
  $app->close;
};