($Second, $Minute, $Hour, $DayOfMonth, $Month, $Year, $WeekDay, $DayOfYear, $IsDST) = gmtime(time + 10800);
@Mth = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
@Day = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');
$SetYear = 1900 + $Year;  
$SetDay = $Day[$WeekDay];
$SetMonth = $Mth[$Month];
$expdate = $SetDay.', '.sprintf('%02d', $DayOfMonth).'-'.$SetMonth.'-'.$SetYear.' '.sprintf('%02d:%02d:%02d', $Hour, $Minute, $Second).' GMT'; 

$file = "cart.html";
@BODY=(); 
open(FILE, "$file");
@BODY=<FILE>; close(FILE); $NOS=$#BODY;
print "Content-type: text/html\n";
&SetCookieExpDate("$expdate");
&SetCookiePath('/');  
&SetCookieDomain('.clickitpro.com'); 
&SetCookies("$sid-cart", "$cartnum");
print "\n";
for ($i=0;$i<=$NOS;$i++) {
    $_ = $BODY[$i];
    print "$_";
}