use PDL;
use PDL::Graphics::Gnuplot;
$x = grandom 50;
$w = gpwin(pdfcairo, output => 'gptest.pdf');
$w->plot(with => 'linespoints', $x->sequence, $x);