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 { ... }";
        }