my $str = '1234567890' x 6;
my $prefixLen;
my $magicLimit = tie_me_a_scalar(sub { $max_width - $prefixLen });

printf "Prefix stuff %n%.*s", $prefixLen, $magicLimit, $str;