<dd>
<pre>
my $pty = new IO::Pty;
- fcntl $pty, F_SETFD, 0; # clear close-on-exec</pre>
-</dd>
-<dd>
-<pre>
- system "rxvt -pty-fd " . (fileno $pty) . "&";</pre>
+ fcntl $pty, F_SETFD, 0; # clear close-on-exec
+ system "rxvt -pty-fd " . (fileno $pty) . "&";
+ close $pty;</pre>
</dd>
<dd>
<pre>