Select Code to Download

my $q = new CGI;
my $val = $q->cookie('param');

my $http_cookie = $ENV{'HTTP_COOKIE'};
$http_cookie =~ /^([^=]+)=(.*)$/;
my($name,$val) = ($1,$2);