Print Date

Hello,
I would like to print the date where it says print "<tr><td width=\"10%\">$date</td>  in this code
how can I do that ??

-----------------
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $q = new CGI;
$user="ebay_username";
use LWP::Simple;
$_=get("http://feedback.ebay.com/ws/eBayISAPI.dll?ViewFeedback&items=200&userid=$user");
die "$user User ID invalid\n" if /<h2>User ID invalid<\/h2>/;
print $q->header;
print $q->start_html('eBay Feedback Management For $user');
       print "<div align=\"center\"><center>";
       print "<table border=\"1\" cellpadding=\"0\" cellspacing=\"0\" style=\"border-collapse: collapse\" bordercolor=\"#111111\" width=\"90%\" id=\"AutoNumber1\">\n";

while( m#<tr.*?/eBayISAPI\.dll\?ViewFeedback&amp;userid=(.*?)">.*?(?:<td valign="top"><span class="help">(\d+)</span></td>|item=(\d+).*?</tr>)#gs ){
       $item{$2||$3} = $1;
       #print "recieved $2$3 $1\n";
}
$_=get("http://feedback.ebay.com/ws/eBayISAPI.dll?ViewFeedbackMemberLeft&items=100&memberid=$user");
while( m#<tr.*?/eBayISAPI\.dll\?ViewFeedback&amp;userid=(.*?)">.*?(?:<td valign="top"><span class="help">(\d+)</span></td>|item=(\d+).*?</tr>)#gs ){
       #print "left  $2$3 $1\n";

       print "<tr><td width=\"10%\">$date</td><td width=\"40%\"><b>$1</b> needs feedback for item <b>$2$3</b></td><td width=\40%\">click <a href=\"http://contact.ebay.com/ws/eBayISAPI.dll?ShowCoreAskSellerQuestion&iid=$2$3&redirect=0&requested=$1\">here</a> to ask for feedback<br>\n" unless $item{$2||$3};
}
       print "</td></tr></table>\n";
       print "</center></div>";
print $q->end_html;
-----------------