#!/usr/bin/env perl -w
##!/usr/bin/env perl -wd

use strict;
use Data::Dumper;
use PDL;
use PDL::Graphics::Simple;

$Data::Dumper::Purity = 1;

imag (sin(rvals(200,200)+1));

sleep 10;
exit 0;
__END__