#!/perl
use strict;
use warnings FATAL => qw(all);

use Chart::Gnuplot;
my $chart = Chart::Gnuplot->new(
  output => "X:/TMP/multiplot.png",
  gnuplot => "C:/gnuplot5/gnuplot/bin/gnuplot.exe",
  terminal => 'png',
);
my $left = Chart::Gnuplot->new();
my $sine = Chart::Gnuplot::DataSet->new(
                func  => "sin(x)",
);
$left->add2d($sine);

my $center = Chart::Gnuplot->new();
my $cosine = Chart::Gnuplot::DataSet->new(
                func  => "cos(x)",
            );
$center->add2d($cosine);

my $right = Chart::Gnuplot->new();
my $tangent = Chart::Gnuplot::DataSet->new(
                func  => "tan(x)",
);
$right->add2d($tangent);

$chart->multiplot([
                [$left, $center, $right]
            ]);