Don't waste our time and do what NetWallah suggested, add one line to your script, use strict;. After that, fix all errors that strict.pm uncovers in your script. Then your script will work better.

A small hint: While Perl works with OLE, Perl does not know about a with statement.

I used "use strict" and "use Win32::OLE qw(in with);" so that perl can use the with statement........ still I receive no errors!!!

After doing a short Super Search for Excel.Application, some good posts showed up and I think I know where your problem is. First, the error reporting is done through Win32::OLE::Error or something like that, unless you have a line Win32::OLE->Option( Warn => 3 ); or something similar.

#!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;
};
[download]

With this code, I get some error about "Columns", but I'm too lazy to investigate why Excel dosen't like it or whether this is the normal way to go about resizing columns.