$Range = $Sheet->Range("E1");
with (my $r = $Sheet->Columns($Range),
	ColumnWidth => 1);