Select Code to Download

use strict;
use warnings;
...
);

print Dumper \%options;

E:\>go.pl --height=1
$VAR1 = {
...
$VAR1 = {
          'length' => 1
        };