perl + cisco cheat