[Expectperl-discuss] using disconnect

[<ksc...@mi...>]

Let's say I have the following Expect script:

#!/usr/bin/expect -f
if {[fork] != 0} exit
disconnect
spawn command
# do something

Is there an equivalent way to perform the "disconnect" command found
in the Tcl-based Expect?

Thanks,
-Kevin