#!/usr/bin/perl
use warnings;
use strict;
use PDL;
use PDL::MatrixOps;
.....
....