Select Code to Download

#!/usr/bin/perl -wT
use strict;
...
        $q->end_html;
 exit(0);
}

#!/usr/bin/perl -wT
use strict;
...

my $q= CGI->new;
my $cookie = $q->cookie('id'); #This keeps returning undef