#!/bin/perl 
use warnings::register;
use warnings;

printf( "Perl Version: %vd\n",$^V);
test_warnings();

sub GenerateWarning {
    warn  "warnings are ",
            warnings::enabled() ? "" : "not ",
            "enabled\n";
}

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

sub AnotherSub {
    GenerateWarning();
}