use PDL;
 use PDL::Graphics::Gnuplot;

  $x = xvals(1000)/1000;
  $y = $x * sin(100 * $x);
 

  # Generate a line plot.  Plot parameters in front.
  gplot({title=>" x * sin(100 x) ",xl=>"Ordinate",yl=>"Abscissa"}, $x, $y );


print "Hit 'Enter' to exit\n";
<STDIN>;