Improved compatibility with perl 5.0 on the 'open' calls.

    system "ssh-keygen -q -t dsa -f curl_client_key -C 'curl test client' -N ''" and die "Could not generate key";

}

open(FILE, ">>", $conffile) || die "Could not write $conffile";

open(FILE, ">>$conffile") || die "Could not write $conffile";

print FILE <<EOFSSHD

AllowUsers $username

DenyUsers

# Now, set up some configuration files for the ssh client

open(DSAKEYFILE, "<", "curl_host_dsa_key.pub") || die 'Could not read curl_host_dsa_key.pub';

open(DSAKEYFILE, "<curl_host_dsa_key.pub") || die 'Could not read curl_host_dsa_key.pub';

my @dsahostkey = do { local $/ = ' '; <DSAKEYFILE> };

close DSAKEYFILE || die "Could not close RSAKEYFILE";

open(RSAKEYFILE, "<", "curl_host_dsa_key.pub") || die 'Could not read curl_host_dsa_key.pub';

open(RSAKEYFILE, "<curl_host_dsa_key.pub") || die 'Could not read curl_host_dsa_key.pub';

my @rsahostkey = do { local $/ = ' '; <RSAKEYFILE> };

close RSAKEYFILE || die "Could not close RSAKEYFILE";

open(KNOWNHOSTS, ">", $knownhostsfile) || die "Could not write $knownhostsfile";

open(KNOWNHOSTS, ">$knownhostsfile") || die "Could not write $knownhostsfile";

print KNOWNHOSTS "[127.0.0.1]:$port ssh-dss $dsahostkey[1]\n" || die 'Could not write to KNOWNHOSTS';

print KNOWNHOSTS "[127.0.0.1]:$port ssh-rsa $rsahostkey[1]\n" || die 'Could not write to KNOWNHOSTS';

close KNOWNHOSTS || die "Could not close KNOWNHOSTS";

open(SSHFILE, ">", $conffile_ssh) || die "Could not write $conffile_ssh";

open(SSHFILE, ">$conffile_ssh") || die "Could not write $conffile_ssh";

print SSHFILE <<EOFSSH

IdentityFile $path/curl_client_key

UserKnownHostsFile $path/$knownhostsfile