perl -E 'my $f = shift @ARGV; say sprintf $f, "foo"' '%9999999999s'