perl: Fix warning about unsharing the $servo variable