use IPC::Open2;
use Symbol;
sub connect_to_cli {
   my $rdr		= gensym();
   my $wtr		= gensym();

   my $pid = open2( $rdr, $wtr, $cmdline );

   return $pid;
}

##</code><code>##

use MyModule;

my $session = new MyModule();
$pid = $session->connect_to_cli();

##</code><code>##

use IPC::Open2;
use Symbol;

   my $rdr		= gensym();
   my $wtr		= gensym();

   my $pid = open2( $rdr, $wtr, $cmdline );

   print "pid =  $pid\n";