Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl                   ## this is perl5.16
my $DEBUG = 1233;
...

myApp::testprint();
myApp::testprint2();
  2. or download this
    package myApp;

...
    print "in myApp::testprint2 DEBUG is [$DEBUG]\n";
    print "in myApp::testprint2 VERBOSE is [$VERBOSE]\n";
}
  3. or download this
    ./xVERBOSE 
 myApp.pm has DEBUG []
...
in myApp::testprint VERBOSE is []
in myApp::testprint2 DEBUG is []
in myApp::testprint2 VERBOSE is []