<%perl>
return unless $session{'CurrentUser'}->UserObj->HasRight(
Right => 'SuperUser',
Object => $RT::System,
);
Menu()->child('tools')->child('config')->child('tools')->child( perldoc =>
title => loc("API Docs"),
path => "/Developer/Perldoc",
);
</%perl>