Select Code to Download

# perl CGI to send a 302 Found response to caller plus setting
# a cookie with name=XYZ123 and value 1.
...

1;
__END__

# perl CGI which expects a cookie with name=XYZ123, if received
# then cookie's value is incremented by 1 and returned.
...

1;
__END__

#!/usr/bin/env perl

...
my $a_response = $ua->request($a_request);

print $a_response->as_string."\n";