#!/usr/bin/perl

use strict; use warnings; use 5.010;
use CGI;
my $cgi   = CGI->new();
my $cName = $cgi->cookie(-name=>'autoname');
my $cPIN  = $cgi->cookie(-name=>'autopin');
my $OX  = $cgi->cookie(-name=>'OX');

print 
    $cgi->header,  
    $cgi->p("cName: $cName"),
    $cgi->p("cPin:  $cPIN"),
    $cgi->p("OX:    $OX"),
    ;