Subroutine fileparse_set_fstype redefined at C:/Program
    Files/Perl/lib/File/Basename.pm line 152 (#1)
    (W redefine) You redefined a subroutine.  To suppress this warning, say
    
        {
        no warnings;
        eval "sub name { ... }";
        }

##</code><code>##

use strict;
use warnings;
sub foo { print 'x' }
{
  no warnings;
  sub foo { print 'y' }
}
foo();