my $halfblock = chr(9600);
utf8::encode($halfblock); # Needs to be UTF8-encoded
...
print "\e[38;2;255;255;255m"; # White foreground
print "\e[48;2;0;0;0m"; # Black background
print $halfblock;
...