my $clearchr;
if (eval { require Term::Cap }) {
    my $terminal = Tgetent Term::Cap { TERM => undef };
    $clearchr = $terminal->Tputs("cl");
}
if ($clearchr eq '') {
    # XXX MSWin32: use cls instead?
    $clearchr = `clear`;
}