/test/perl/input_read