use strict;
use warnings;

use utf8;
use Imager;
use Data::Dumper;

my $img = Imager->new(xsize=>128, ysize=>8);
my $small = Imager::Font->new(file => 'PixelOperator/PixelOperator8.ttf') or die;

$small->align(string => "Færevåg Øst",
    size => 8,
    x => 0,
    y => 0,
    valign => 'top',
    image => $img);

for (my $y=0; $y<8; $y++) {
    for (my $x=0; $x<128; $x++) {
        my $col = $img->getpixel(x=>$x, y=>$y);
        print [$col->rgba()]->[0] ? "O" : " ";
    }
    print "\n";
}