readparse(*input);

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