$|++; # 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("sid=");

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

sub parameter{
	
	my $search=$_[0];
	my $parameter="";
	
	foreach (@ARGV) {
		print $_;
		print "\n\t suchstring: ".$search." \n";

		#$parameter=~ /$search/i;
		#print "parameter: ".$parameter."\n";
		#print =~ /$search/i;
		last if $_= /$search/i;
		#print "test";
		}
		 
return $parameter;
	
}