use strict;                                                                     
use warnings;

sub c {
    no warnings;
    print $d; 
}
sub a{
    no warnings;
    print $b; 
    c;  
}
a();