If I understand your code correctly, you're trying to tell the user's browser that it should delete the cookies. Of course, the user's browser is free to take your advice and delete them, or it could ignore you and keep them until the end of time. You can tell the browser to delete them as a courtesy, so that a well-behaved browser does not need to continue to store them, but you also should invalidate or delete the cookies on the server side, so that if the browser should happen to continue to present them they will be ignored.

I realise this doesn't answer your question, because what you really want to know is whether there's a problem with your code that's causing the browser to fail to understand what you're telling it. However, I don't really know. I am personally unfamiliar with the "Delete cookies" header. According to this (fairly old) document at Netscape, the way to delete a cookie is to re-issue it with the same name, but with an expiration date in the past. This is probably the oldest way to delete a cookie and so therefore probably has the widest browser support, and it seems to be what you are doing (on the line right before the "Delete Cookies" line). That should work in most browsers, but you may have to wait for the browser to be closed and restarted before it will take effect. Also, if the browser in question has a run-continuously-in-the-background feature, "closed and restarted" may mean the computer may need to be rebooted, though I'm not certain about that. As far as the "Delete Cookies" header, I don't know what browsers (if any) support it. Or is that just information for you or the user to know what's going on?

update: I just noticed that you are trying to do them all in one fell swoop by using join to lump the cookies all together into one. That may not work. You may need to expire each one separately by calling CGI::Cookie->new once for each cookie. Beyond that, I don't know.

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/
[download]

First, please start learning how to search the site, as this questions has been asked many time: delete cookie. You can find answers to the immediate question at How can I delete a cookie?

You first get any cookies that might be available:

my %cookie = CGI::Cookie->fetch;
[download]

if (exists $cookie{test}) {
   # we have our cookie, do something with $cookie{test}->value
   
}
else {
   # we don't have a cookie, need to make one
   my $cookie = CGI::Cookie->new(-name=>'test',-value=>12345);

   # now we "inject" into the HTTP headers
   print header(-cookie=>$cookie);
}
[download]

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

ok. I see you examples, but please tell me something.
I have more cookies and the $ENV{'HTTP_COOKIE'} look something like this (ex: Steel%3A01%3A11=Noul%20Produs2%3A1%3A250%3A; Steel%3A01%3A10=Noul%20Produs%3A1%3A5000%3A)
, and i want to delete all my dates from $ENV{'HTTP_COOKIE'} with my script (please look my script), but this stupid script don't want , WHY?
I want the script to look on all my cookies and delete all (only cookies with $idProgram eq Steel and $nxRegCode eq 01), one by one.
Please help me man. Thank you.



#!perl -wT

use CGI::Carp('fatalsToBrowser');
use warnings;
use CGI qw(:standard);
use CGI::Cookie;
use CGI;


$query = CGI->new();
my %cookie = CGI::Cookie->fetch;

@decodareCookie = ('\%3A','\%20');
%decodareCookie = ('\%3A',':','\%20','##');
foreach (split(/; /,$ENV{'HTTP_COOKIE'})) {
($cookie,$value) = split(/=/);
foreach $caracter (@decodareCookie) {
$cookie =~ s/$caracter/$decodareCookie{$caracter}/g;
$value =~ s/$caracter/$decodareCookie{$caracter}/g;
($idProgram, $nxRegCode, $nxIdProdus) = split (/:/, $cookie);
($nxDenumireP, $canditate) = split (/:/, $value);
}
if (($idProgram eq Steel) && ($nxRegCode eq 01)) {
my $cookieList = join(":",Steel,$nxRegCode,$nxIdProdus);
my $list = join(":",$nxDenumireP,$canditate);
my $cookie = CGI::Cookie->new(-name=>$cookieList,-value=>$list,-expire
+s=>'-1h');
print header(-cookie=>$cookie);
print "<center><h2>Produs adaugat pentru plata</h2></center><br>";
print "<br>$ENV{'HTTP_COOKIE'}";
}
}
[download]