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