open(my $fh, "<", "parameter.csv") or die "$!";
my $header = <$fh>;
while(<$fh>)	{
	my @line = split(/;/, $_);
	my $t = $line[0];
	${module}{$t}{name} = $line[1];
	my $n = $line[2];	
	${module}{$t}{indicator}{$n}{ind} = $line[3];
	${module}{$t}{indicator}{$n}{yscala} = $line[4];
}
close $fh;

##</code><code>##

my @cmds;
for my $number (sort keys %{${module}{$topic}{indicator}}){
  my $cmd = build_command($number, %args);
  push @cmds, $cmd;
}

for (my $i=0; $i<@cmds; $i++) {
		if($i == 0 or $i % 2 == 0)	{
			$cmds[$i] = "$multiplot\n\n$cmds[$i]";
		}
}

for (my $i=0; $i<@cmds; $i++) {
		if($i % 2 == 1 or $i == $#cmds)	{
			$cmds[$i] = "$cmds[$i]\n\n unset multiplot\n\n";
		}
}

my $slurpline;
for (my $i=0; $i<@cmds; $i++) {
		$slurpline.=$cmds[$i];
}

##</code><code>##

open my $P, "|-", "gnuplot" or die;

printflush $P qq[
        		
		$postscript
		
		$slurpline
		
			
]; 

close $P;