$|++; # aktiviert Autoflush fuer STDOUT

use FindBin ();

use lib "$FindBin::Bin";

use strict;
use warnings;
use XML::Twig;
use Term::ANSIColor qw(:constants);

my $sid= parameter("solmankey=");

print "\n\t die sid lautet:".$sid."\n";

###############################################################################
# ask instance number

sub parameter{
	
	my $search=$_[0];
	my $parameter="";
	my $found="";
	
	foreach (@ARGV) {
		$found = ($_ =~ s/^$search//g);
		$parameter= $_;
		last if $found ==1;
	}
		 
	return $parameter;
	
}