# At top of file my $workbook = Spreadsheet::WriteExcel->new($target); my $worksheet = $workbook->add_worksheet("Ventus_Networks_Invoice"); my $row = 0; ... # This is the header row, that prints if( $qrv > 0 ) { my $mid_header = $workbook->add_format(%oUpper,%iLeft,%iRight,%greybg,%fBold,%iLower); my $mid_theader= $workbook->add_format(%oUpper,%iLeft,%iRight,%greybg,%fBold,%iLower,%fTwrap); $worksheet->write($row,0,'Site Name',$workbook->add_format(%oUpper,%oLeft,%iLower,%iRight,%greybg,%fBold)); ... # After headers are printed, print data while(my @i = $sth_site->fetchrow_array() ){ $worksheet->write($row,0,$i[1], $workbook->add_format(%oLeft,%iRight,%iLower)); # Location ID # This is where $! is set to "Resource Temporarily Unavailable