use strict;
use warnings;

use Barcode::DataMatrix;
use Safe;

my $mat = Barcode::DataMatrix->new()->barcode( 1 );
print $mat;

##</code><code>##

$ ./bc.pl
ARRAY(0x1960758)