print $mech->cookie_jar->as_string, $/;

$cookie_jar->scan(sub { print "Cookie from ", $_[4], "\n" });

$cookie_jar->clear(); # Can take args too!

# Maybe put a cookie back...
$cookie_jar->set_cookie( @your_cookie_data );