WARNING. This "answer" is non-responsive to the quesion.

perl is warning you for a reason - redefining a subroutine is nearly always due to error. Factor your scripts to a common set, or use modules to avoid namespace collision.

--Bob Niederman, http://bob-n.com