#!
BEGIN { # Convert the warning to Carp::cluck
    $SIG{__WARN__} = sub {
        Carp::cluck(@_);
         };
     };
use Carp;
use strict;
use warnings;
use Mod1;
use Mod2;

INIT { # Clear the warning to Carp::cluck
    $SIG{__WARN__}='DEFAULT';
     };

sub One { # First definition
    return "first";
     };

sub One { # Second definition
    return "second";
     };

print One()."\n";
exit;