[
  qr'ssword: ',
  sub { 
    $spawn_ok=1;
    $scp->stty('-echo');        # echo off
    print $scp ("password\n");
    $scp->stty('echo');         # echo on
    exp_continue;
  }
],