sub run_load {
  push @LOG, "Executing Shell script: > $rfile <\n";
    
  my $chan = $ssh2->channel();
  #$ssh2->debug(1);
  $chan->shell();

  print $chan "$path/../{some_shell_script.sh}\n";
  select(undef,undef,undef,20.2);
  my ($len,$buf);

  while ($len = $chan->read($buf,512) > 0) { 
   push @LOG, "EXEC_LINE : $buf";
   print "EXEC_LINE : $buf" if $dbug;
  } 
  $chan->close;
}