/usr/share/doc/libio-pty-perl/examples