sub Gnuplot
{
	my $i;
	for($i=0;$i<@_;$i++){
	print " Inhalt: $_[$i]\n";	
}