use strict; use warnings; use 5.010;
use IO::Handle;
use File::Temp "tempfile";
my($T,$N) = tempfile("plot-XXXXXXXX", "UNLINK", 1);
for my $g (1..6) {
	for my $s (1..4) {
		print $T rand(10/$s), " ";
	}
	print $T "\n";
}
open my $P, "|-", "gnuplot" or die;
printflush $P qq[
        unset key
        set yrange [0:]
	set style data histogram
	set style histogram rowstacked
	set style fill solid 0.5
	set boxwidth 0.9
        plot for [COL=1:4] "$N" using COL
];
<STDIN>;
close $P;
__END__

##</code><code>##

set terminal dumb
set boxwidth 0.8

##</code><code>##



   14 ++--------+---------+---------+---------+---------+---------+--------++
      +         +         +         +         +         +         +         +
      |                                                       %%%%%%%%%     |
      |                                             %%%%%%%%% %       %     |
   12 ++                                            %       % %       %    ++
      |                                             %       % %       %     |
      |     %%%%%%%%% %%%%%%%%%                     %       % $$$$$$$$$     |
      |     %       % %       %                     %       % $       $     |
   10 ++    $$$$$$$$$ %       %                     $$$$$$$$$ $       $    ++
      |     $       $ $$$$$$$$$                     $       $ $       $     |
      |     $       $ #########                     $       $ #########     |
      |     $       $ *********           %%%%%%%%% $       $ #       #     |
    8 ++    $       $ *       * %%%%%%%%% %       % $       $ #       #    ++
      |     $       $ *       * ######### $$$$$$$$$ ######### #       #     |
      |     ######### *       * #       # $       $ #       # #       #     |
      |     #       # *       * #       # ######### #       # #       #     |
    6 ++    #       # *       * #       # #       # #       # #       #    ++
      |     #       # *       * #       # #       # #       # #       #     |
      |     ********* *       * #       # #       # ********* #       #     |
      |     *       * *       * ********* #       # *       * *********     |
    4 ++    *       * *       * *       * ********* *       * *       *    ++
      |     *       * *       * *       * *       * *       * *       *     |
      |     *       * *       * *       * *       * *       * *       *     |
      |     *       * *       * *       * *       * *       * *       *     |
    2 ++    *       * *       * *       * *       * *       * *       *    ++
      |     *       * *       * *       * *       * *       * *       *     |
      |     *       * *       * *       * *       * *       * *       *     |
      +     *   +   * *   +   * *   +   * *   +   * *   +   * *   +   *     +
    0 ++----*********-*********-*********-*********-*********-*********----++
     -1         0         1         2         3         4         5         6