From my old notes:

#!/usr/bin/perl
use warnings;
use strict;
use PDL;

# use dog to write 2-d piddles, both stdout or to a file.

my $pdl = random( 1000, 1000);
wcols "%6.1f",$pdl->dog;
[download]