binmode STDOUT;
while( ... ) {
    my( $name, $home )= ...;
    formline "@<<<<<<<<<­<<<<<<<<< @<<<<<<<<<­<<<<<<<<\r", $name, $home;
    print $^A, $/; $^A= "";
}