sugary dispatcher for perl