sub moveTo{  
    my( $x, $y ) = @_;
    return chr(27) . "[$y;$xH";
}

print moveTo( 25, 25), 'some text';

print moveTo( 10, 10 ), ' ';