Select Code to Download

sub FETCH {
  my ($self, $n) = @_;
...
    if defined $rec && $self->{autochomp};
  $rec;
}

# Chomp one record in-place; return modified record
sub _chomp1 {
...
  substr($rec, - $self->{recseplen}) = "";
  $rec;
}