Searching for sshd and sftp-server will be done first

my $conffile="curl_sshd_config";    # sshd configuration data

# Search the PATH for sshd.  sshd insists on being called with an absolute

# path for some reason.

my $sshd = searchpath("sshd", File::Spec->path());

# Searching for sshd and sftp-server will be done first

# in the PATH and afterwards in other common locations.

my @spath;

push(@spath, File::Spec->path()); 

push(@spath, @sftppath); 

# sshd insists on being called with an absolute path.

my $sshd = searchpath("sshd", @spath);

if (!$sshd) {

	print "sshd is not available\n";

    print "sshd$exeext not found\n";

    exit 1;

}

if ($verbose) {

    print STDERR "SSH server found at $sshd\n";

}

my $sftp = searchpath("sftp-server", @sftppath);

my $sftp = searchpath("sftp-server", @spath);

if (!$sftp) {

	print "Could not find sftp-server plugin\n";

    print "Could not find sftp-server$exeext plugin\n";

    exit 1;

}

if ($verbose) {