Select Code to Download

grep -w redirect `perldoc -l CGI`

Subroutine %s redefined

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

use CGI qw/:standard/;