i figured it out. i did my $dayofmonth = (localtime)3; my $row = $dayofmonth; so august 20th would be in 21st row. august 21st would be in 22nd row. as of now script looks like this:

#!/usr/bin/perl
use Spreadsheet::WriteExcel;

my $weekday = (Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturda
+y)[(localtime)[6]];
my $dayofmonth = (localtime)[3];
my $month = (January, February, March, April, May, June, July, August,
+ September, October, November, December)[(localtime)[4]];
my $date = (localtime)[3];

my $column = (localtime)[6] + 1;
my $row = $dayofmonth;
print $tmpday;

my $workbook = Spreadsheet::WriteExcel->new("test.xls");
my $worksheet = $workbook->addworksheet('3rd Quarter 2002');
my $format = $workbook->addformat();
$format->set_bold();

$worksheet->write(0, 0, 'Date', $format);
$worksheet->write(0, 1, 'Day', $format);
$worksheet->write(0, 2, 'AOL', $format);
$worksheet->write(0, 3, 'MSN', $format);
$worksheet->write(0, 4, 'Katrillion', $format);
$worksheet->write(0, 5, 'CS', $format);
$worksheet->write(0, 6, 'Daily Total', $format);
$worksheet->write(0, 7, 'AOL Weekly', $format);
$worksheet->write(0, 8, 'Mo. Run Total', $format);
$worksheet->write(0, 9, '% change', $format);

$worksheet->write($row, 0, "$month $date");
$worksheet->write($row, 1, $weekday);
[download]