readparse(*input);
  ...
  sub readparse {
    local (*in) = @_ if @_;