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


my $x = sequence(25);  # Create a piddle of increasing value
print "$x\n";                

my $slice =  slice $x,'4:20:2';
print $slice;
print "\n";

$slice .= 0;
print $slice;
print "\n";

print $x;
print "\n";

for (1..100){
$slice ++;
print $x;
print "\n";
select(undef,undef,undef,.5);
}