#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;

GetOptions('-d' => \my $d_schalter);

my @files = @ARGV;
print $_,"\n" for @files;