my $opt_length;

GetOptions (
    "length=i" => \$opt_length, 
);

# call plot() or calc()

sub plot {
  my $length = opt_length // 10;

  ...
}

sub calc {
  my $length = opt_length // 20;

  ...
}