use Term::Cap;
                                                                                
my $term = Term::Cap->Tgetent();
                                                                                
print $term->Tputs('cls');
print $term->Tgoto('cm',1,1);
                                                                                
print "foo";
                                                                                
print $term->Tgoto('cm',1,1);
                                                                                
print "foo";