my ($out,$err) = $self->{connected}->capture2($params->{cmd});

##</code><code>##

cd /home/sitest/Scripts.....
tclsh test_script.tcl
./check_network.pl