sub ssh_string { my $host = shift; return join '', username(), '@', $host, domain(); }