Select Code to Download

use strict;
use warnings;
...
$xl->{DisplayAlerts} = 1;
$sht->ShowAllData;
$sht->Range('A1:A3')->EntireRow->Delete;