perl PerlIO-via-dynamic