Not Perl related, but mouse related...

I notice that mouse traps increase in price the more humane you are and the more squeamish you are. The "drive them out without ever seeing them" is the most expensive. Live traps are more expensive than death traps. Covered death traps you can empty without ever seeing the mouse are more expensive than the old spring on the plank death traps. Etc.

We tried live traps and death traps when we had mice. Baited live traps worked really well. Baited death traps would have the bait stolen and the trap left untriggered. The only use I found for the death traps was to leave them in any path I'd seen a mouse take (without bait). On their way to or from, they'd just walk over them and die.

Good luck.