use Getopt::Long qw( GetOptions );
Getopt::Long::Configure( );

my $Debug  = 'Bob';
my $Module = 26;
my $Verify = 0;
my $Help   = 0;

GetOptions('Debug=s'  => \$Debug  ,
           'Module=s' => \$Module ,
           'Verify=s' => \$Verify ,
           'Help'     => \$Help   ,
	       
) or die "Falsche Verwendung !" , "\n";

if( $Help ) 
{
    Verwendung( );
	
} else {

    print "Debug  : $Debug"  , "\n";
    print "Module : $Module" , "\n";
    print "Verfiy : $Verify" , "\n";
}

sub Verwendung {

	print "Common on, it's really not that hard.\n";
}