You can do this more flexibly with the module Term::Cap which is part of the core distribution:

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";
[download]

/J\