Select Code to Download

$worksheet2->write(4,4,'=work1name!B1:B4');

#!/usr/bin/perl -w

...
my $summ_worksheet=$workbook->addworksheet("Summary");
$summ_worksheet->write(0,0,"Sum:");
$summ_worksheet->write(0,1,"=SUM(Files!B1:B2)");