Select Code to Download

use strict;
use warnings;
...
my $wb = $xl->Workbooks->Add;
my $sht = $wb->Sheets("Sheet1");
$sht -> Range("B2") -> {Value} = 1234;