$c = new CGI::Cookie(-name    =>  'NetAppliance1.0',
                     -value   =>  "$id",
                     -path    =>  '/cgi-bin/'
                     -secure  =>  0
                    );

##</code><code>##

use Data::Dumper;

print Dumper({-value => $id});

##</code><code>##

$VAR1 = {
          '-value' => bless(do {\(my $o= '+123456789123456789')}, 'Math::BigInt')
        };