use strict;
use warnings;

use Chart::Gnuplot;

my @rtppackettimeinms = (1,2,3,4,5);
my @scaledpayloadsize = (1,2,3,4,5);

my $chart = Chart::Gnuplot->new(
    terminal=>'dumb',
#    output =>"temp.png",
    title=>"RTPTSDiff vs ScaledPayloadSize",
    xlabel=>"PacketArrivalTime ms",
    ylabel=>"ScaledPayloadsize"
);

my $dataset = Chart::Gnuplot::DataSet->new(
    style => "points",
    xdata => \@rtppackettimeinms,
    ydata => \@scaledpayloadsize
);

$chart->plot2d($dataset);