use strict;
use warnings;

package cookies;

use Data::Dumper; $Data::Dumper::Indent = 1; $Data::Dumper::Useqq = 1;        
use CGI qw/:standard/;

my %cookies = ();

sub start {
  foreach ( cookie() ) {
    my %hash = cookie($_);

        print '### Debug ### 
Cookie: 
', Dumper(%hash), 
'######
';    

        $cookies{$_} = \%hash;
  }
  1;
}

sub get {
  my($name) = @_;
  return $name ? $cookies{$name} : \%cookies;
}

1;

package main;

use CGI qw/:standard/;
use Data::Dumper; $Data::Dumper::Indent = 1; $Data::Dumper::Useqq = 1;        

sub say {
        print "@_", "\n";
}

$ENV{HTTP_COOKIE} = 'url=%2Fcms%2Fadmin%2F12%2F; user=test';

cookies::start;

my $c = cookies::get();
say Dumper $c;

my $z = cookies::get('url');
say Dumper $z; 
say 'URL ist ', $z->{'url'}; 

1;

Odd number of elements in hash assignment at C:\TEST\test.pl line 13.
Odd number of elements in hash assignment at C:\TEST\test.pl line 13.
Use of uninitialized value in join or string at C:\TEST\test.pl line 39.
### Debug ### 
Cookie: 
$VAR1 = "test";
$VAR2 = undef;
######
### Debug ### 
Cookie: 
$VAR1 = "/cms/admin/12/";
$VAR2 = undef;
######
$VAR1 = {
  "url" => {
    "/cms/admin/12/" => undef
  },
  "user" => {
    "test" => undef
  }
};

$VAR1 = {
  "/cms/admin/12/" => undef
};

URL ist