Select Code to Download

  my $v = shift;
  my $n = exists $self->{maxlength} ? $self->{maxlength} : undef;
  $self->{value} = $n ? substr($v,0,$n) : $v;