use strict;
use warnings;
use Win32::OLE;

my $excel = new Win32::OLE("Excel.Application", \&EndApp);
$excel->{Visible} = 1;
my $workbook = Win32::OLE->GetObject("c:\\test.xls");
my $worksheet = $workbook->Worksheets(1);
my $column = $worksheet->Range("A1");
$column->{ColumnWidth} = 400;

sub EndApp
{
  my $comobject = $_[0];
  print "quitting ". $comobject->{Name}."\n";
  $comobject->Quit();
}