use Spreadsheet::WriteExcel; 
my $FileName = "/home/Desktop/ABC/report.xls";
my $workbook = Spreadsheet::WriteExcel->new($FileName); 
my $worksheet1 = $workbook->add_worksheet('report1');
$worksheet1->write($i, 0, $url);
$worksheet1->write($i, 1, $title);