use strict;
use warnings;

use Barcode::DataMatrix;
use Safe;

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