#!/usr/bin/perl                   ## this is perl5.16
my $DEBUG = 1233;
my $VERBOSE=5;
use strict;
use warnings;
use Getopt::Long;

my $Usage = "this is Usage";
Getopt::Long::GetOptions( 'd=i'     => \$DEBUG,
                          'v=i'     => \$VERBOSE ) or die "Incorrect usage! $Usage\n";
print "in MAIN DEBUG is $DEBUG \n";
print "In Main VERBOSE is $VERBOSE \n";
use lib "../lib";
use myApp;

myApp::testprint();
myApp::testprint2();