sub page {
    my ($tmp, $no_tty, @pagers) = @_;
    if ($no_tty) {
        open(TMP,"<", $tmp)     or die "Can't open $tmp: $!";
        local $_;
        while (<TMP>) {
            print or die "Can't print to stdout: $!";
        }
        close TMP               or die "Can't close while $tmp: $!";
    }
    else {
        foreach my $pager (@pagers) {
            last if system("$pager $tmp") == 0;
        }
    }
}