#!/usr/bin/perl -w use strict; use Chart::Gnuplot; # Create the chart object my $chart = Chart::Gnuplot->new( output => "plot3d_7.png", title => "View the plot from a different angle", view => '30,60', # angle in degree ); # Data set object my $dataSet = Chart::Gnuplot::DataSet->new( func => "exp(-(x**2 + y**2)/5)", ); # Plot the graph $chart->plot3d($dataSet);