Select Code to Download

say $im-> getscanline( y => $_, type => 'index' ) 
    =~ tr/\0\1/O /r
        for 0 .. $im-> getheight - 1;

'10714/8bitOperatorPlus8-Regular.ttf', # Abomination from wrong link
'pixel_operator/PixelOperator8.ttf',   # Correct version
'ucs-fonts/6x12.bdf',                  # 'Fixed', from my answer above
+ 
'uw-ttyp0-1.3/genbdf/t0-12-uni.bdf',   # http://people.mpi-inf.mpg.de/
+~uwe/misc/uw-ttyp0/
'gohufont-2.1/gohufont-uni-11.pcf',    # http://font.gohu.org/

 OOO                         OO           OO O
 O                           O O          O O       O
...
                                        O
                                     OOO