$ perl -le '
    use Bad;

    {
        no warnings "redefine";
        sub Bad::gen_warning {
            use warnings "redefine";
            no warnings "uninitialized";
            print "Undeclared: >>>$x<<<";
        }
    }

    Bad::gen_warning();
'
Undeclared: >>><<<