Write a ‘title’ helper 

sub set_title {
    $global{tokens}->{title} = shift;
}


sub title {
    $global{tokens}->{title};
}