sub ssh_connect {
    my ($server,$command) = @_;
    my @lines = qx{$sshbin $server $command};
    my $output = join "<br />", @lines;
    return $output . "<br />";
}