use CGI qw(:standard);

# reading a cookie
my $cookie_value = cookie( $cookie_name );

#  creating a cookie
my $cookie = cookie(
  -name => $cookie_name,
  -value=> $some_value
);

# And setting the cookie (while printing the header)
print header( -cookie => $cookie );