use strict;
use warnings;
use diagnostics;

use Getopt::Long;

my %Options = ("Verbose" => 0);

GetOptions(
              \%Options
            , "TPID=s"
            , "User=s"
            , "Password=s"
            , "DataFile=s"
            , "Table=s"
            , "DataBase=s"
            , "Sessions:i"
            , "Verbose=i"
          ) or warn("Waaaaaaahhhhhhhhh!!!!!!");

foreach (sort(keys(%Options)))
   {
   print("Options[$_][" . $Options{$_} . "]\n");
   }