gistfile1.PL

package MyAwesomeCookies;

my %cookies = (); 

sub read_cookies { 
    # .. pass in $query
    $cookies{name} = $query->cookie('name'); 
}

sub set_cookie { 
    my ( $name, $value ) = @_; 
    $cookies{$name} = $value; 
} 

sub write_cookies { 
    # ... print all the cookies from %cookies 
}