perl: Fix callback example