$exp1->send_slow("$cmd\n");
$exp1->expect($timeout, -re=>'.*');
print "Got return from Expect:\n".$exp1->match()."\n";

##</code><code>##

Got command prompt: [root@fc10-test perl]# Sending kill commands to child processes:
/bin/kill -INT 4361
Starting EXPECT pattern matching...
 at /home/csit/usr/perl/lib/site_perl/5.10.1/Expect.pm line 561
        Expect::expect('Expect=GLOB(0x93611a0)', 10, '-re', '.*') called at vpn_client1.pl line 132
        main::sigInt('INT') called at vpn_client1.pl line 100
        eval {...} called at vpn_client1.pl line 100
Got return from Expect:

VPN process 4361 not dead yet
  4361 ?        00:00:00 openvpn

Sending kill -TERM
Sending kill commands to child processes:
/bin/kill -TERM 4361
Starting EXPECT pattern matching...
 at /home/csit/usr/perl/lib/site_perl/5.10.1/Expect.pm line 561
        Expect::expect('Expect=GLOB(0x93611a0)', 10, '-re', '.*') called at vpn_client1.pl line 132
        main::sigInt('INT') called at vpn_client1.pl line 100
        eval {...} called at vpn_client1.pl line 100
Got return from Expect:

VPN process 4361 not dead yet
  4361 ?        00:00:00 openvpn