#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;       # Parameteruebergabe

my @infiles;
my $outfile='C:\Complete_List.datafield';

# Uebergabeparameter einlesen
GetOptions ('i=s' , \@infiles);
push(@infiles,@ARGV);

print "$_\n" for(@infiles);