grep -w redirect `perldoc -l CGI`

##</code><code>##

Subroutine %s redefined

(W redefine) You redefined a subroutine. To suppress this warning, say

   1. {
   2. no warnings 'redefine';
   3. eval "sub name { ... }";
   4. }

##</code><code>##

use CGI qw/:standard/;