Select Code to Download

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

use Data::Dumper;

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

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