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

use strict;
my ($i);
#clp umgewandelt mit funktion

&funktion();

sub funktion() {
my (@ar,$i);
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]);
}
}