#!/usr/bin/perl 

use CGI::Cookie;


my %cookies = fetch CGI::Cookie;
my $new_value = 'modify';

print "Content-type: text/html\n\n";
foreach (keys %cookies) {
   #change value of NewCookie
    if($_ eq 'NewCookie')   {
        my $val_cookie = $cookies{'NewCookie'}->value;
        print "\n value of NewCookie =>" . $val_cookie;
       $cookies{'NewCookie'}->value($new_value);
       $cookies{'NewCookie'}->bake;
    }
}