add perl's subroutine get_cookie