Select Code to Download

#!/usr/bin/perl -w

...
my $id = $cookies{'ID'}->value;
print $id;
print end_html;

print $id;Set-Cookie: ID=123456; path=/
Set-Cookie: preferences=font&Helvetica&size&12; path=/
...
Uncaught exception from user code:
        Can't call method "value" on an undefined value at ./index.cgi
+ line 17.
 at ./index.cgi line 17