#########################
sub clear_line {
#########################

    print "router name? ";
    my $r = <STDIN>;
    chomp($r);
    print "term? ";
    my $terms = <STDIN>;
    chomp($terms);

    my $values;
    my @test_array;
    my @data_set = (
        JT->new( host => $r ),
    );
     foreach my $rh (@data_set) {

        for (my $term = $terms; $term <=40; $term++) {
        $rh->cmd("request system logout terminal pts/$term");
    }
    }

}