#!/usr/local/bin/perl

use strict;

my $IniFile = $ARGV[0];

print "-------------------------------- \n";
print "Argumente >@ARGV< \n";
print "Programm $0 \n";
print "IniFile = $IniFile \n";
print "-------------------------------- \n";