my $one_line_up = `tput cuu1` or die "tput problem";

print "\n\n\nunten${one_line_up}oben\n\n\n";