use strict;
use warnings;
use diagnostics;
package pkgsam1;
sub min{
    print "min";
}
sub min{
    print "min11";
}

##</code><code>##

Subroutine min redefined at test.pl line 8 (#1)
    (W redefine) You redefined a subroutine.  To suppress this warning, say

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