$ftp=Net::SFTP::Foreign->new($host,%args) or $newerr=1;
$ftp->setcwd($hostgetdir) or $newerr=1;
print
"===================\n",
getcwd(), "\n",
"Done!\n",
"===================\n";