package myApp;

my $DEBUG   = $main::DEBUG;
my $VERBOSE = $main::VERBOSE;

print " myApp.pm has DEBUG [$DEBUG]\n";
print " myApp.pm has VERBOSE [$VERBOSE]\n";

1;

sub testprint {
    print "in myApp::testprint DEBUG is [$DEBUG]\n";
    print "in myApp::testprint VERBOSE is [$VERBOSE]\n";
}
sub testprint2 {
    my $DEBUG   = $main::DEBUG;
    my $VERBOSE = $main::VERBOSE;
    print "in myApp::testprint2 DEBUG is [$DEBUG]\n";
    print "in myApp::testprint2 VERBOSE is [$VERBOSE]\n";
}