#!/usr/bin/env perl
use strict;
use warnings;
use FindBin;
use lib $FindBin::Bin.'/lib';

use Term::DataMatrix;
print Term::DataMatrix->new->plot(shift) . "\n";