use Getopt::Long;
Getopt::Long::Configure('no_ignore_case');
my %Opts = ();
GetOptions(
    '--service_url=s' => \$Opts{service_url},
    '--user_name=s' => \$Opts{user_name},
    '--password=s' => \$Opts{password},
);