# Uebergabeparameter einlesen
GetOptions ('i=s' , \$infile1);