#excel modules
use Spreadsheet::ParseExcel::SaveParser;
use Spreadsheet::WriteExcel;

#loading template
my $parser = new Spreadsheet::ParseExcel::SaveParser;
my $template = $parser->Parse('timesheets/old_template.xls')
        or die "Unable to open template";
my $temp_workbook;

#adding info...
#user name
setCellFormat(4,2);
$template->AddCell(0, 4, 2, "$real_name", $format);

#project name
setCellFormat(5,2);
$template->AddCell(0, 5, 2, "$project_name", $format);

#save data
my $workbook;

{       #ignore SaveAs errors and warnings
        local $^W = 0;
        $workbook = $template->SaveAs('/home/~myname/httpdocs/spreadsheet.xls');
}