Select Code to Download

use strict;
use warnings;
...

$xl->{EnableEvents}   = 1;
$xl->{ScreenUpdating} = 1;