PDL::IO::Image-> new_from_pdl( 
    pdl([ unpack 'C*', $pdl ])
        -> reshape( 1000, 1000 )-> bitnot
)-> save( 'buk.png', 'PNG' );