my $chart = Chart::Gnuplot->new(output =>"temp.png",title=>"RTPTSDiff
+ vs ScaledPayloadSize",style => "points",xlabel=>"PacketArrivalTime m
+s",ylabel=>"ScaledPayloadsize");

my $dataset = Chart::Gnuplot::DataSet->new(xdata => \@rtppackettimeinm
+s, ydata => \@scaledpayloadsize);