firewall: Fix perl coding error.