use warnings;
use strict;

use Getopt::Long;

# global variables
my $warning  = 90;
my $critical = 30;
my $version  = 1;
my $help     = 0;
my $host;
my $revision;
my $debug    = undef;
my $tag;

Getopt::Long::Configure( "no_ignore_case", "bundling" );
GetOptions(
    'H|host=s'     => \$host,
    't|tag=s'      => \$tag,
    'h|help|?'     => \$help,
    'v|verbose'    => \$debug,
    'V|version'    => \$revision,
    'w|warning=i'  => \$warning,
    'c|critical=i' => \$critical,
);

if ( defined $debug ) {
    use SOAP::Lite +trace => "debug";
}
else {
    use SOAP::Lite;
}

##</code><code>##

./code -H localhost

##</code><code>##

my $debug = undef;