#!/usr/bin/perl -w

use strict;

use Getopt::Long;

my ($username, $password);

my $result = GetOptions("username=s" => \$username,
                        "password=s" => \$password);