if(!($ssh2 ->scp_put(${datafile},${dir}))) {
  my @error = $ssh2->error();
  die ("@error");
}