1 files changed, 22 insertions, 0 deletions
diff --git a/doc/pty-fd b/doc/pty-fd
new file mode 100755
index 0000000..03661b8
--- /dev/null
+++ b/doc/pty-fd
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+# sample script to illustrate the -pty-fd option
+
+use IO::Pty;
+use Fcntl;
+
+my $pty = new IO::Pty;
+fcntl $pty, F_SETFD, 0; # clear close-on-exec
+
+system "rxvt -pty-fd " . (fileno $pty) . "&";
+close $pty;
+
+# now communicate with rxvt
+my $slave = $pty->slave;
+
+print $slave "hi! please enter something and press return (ctrl-d to exit):\n";
+
+while (<$slave>) {
+   print $slave "you entered: $_";
+}
+