no warnings;

sub test_warnings {
    GenerateWarning();
    AnotherSub();
}

sub AnotherSub {
    GenerateWarning();
}