#!/usr/bin/perl -w
use strict;
use Getopt::Long;
use Data::Dumper;

my %options;
GetOptions(
    \%options,
    'length|height=i' => \$options{length}
);

print Dumper \%options;