#!/usr/bin/perl -w
# markus westphal 03.05.2005

use strict;
my ($i, @ar);
#command-line Parameteruebergabe

if ($#ARGV != 2)  
{
exit(0);
}
for ($i=0; $i<=$#ARGV; $i++) {
($ar[$i], $ar[$i+1]) = split("=",$ARGV[$i]);
printf (STDOUT "%d  Parameter=%s  Wert=%s \n",$i+1 , $ar[$i], $ar[$i+1]);
}