package Bad;

use warnings;

sub gen_warning {
    print "Undeclared: >>>$x<<<";
}

1;