use strict;
use warnings;

my $einstellungen = "Einstellungen.txt";
my $einstellungen_pfad = "C:\\Pfad\\$einstellungen";

format EXI =
Parameter1 = 1
Username: Ralf
.

if (-e $einstellungen_pfad){
    print "$einstellungen bereits vorhanden";
}else {
    open(EINSTELLUNGEN, ">$einstellungen_pfad") or die $!;
    my $ofh = select EINSTELLUNGEN;
    $~ = 'EXI';
    write;
    select( $ofh );
    close EINSTELLUNGEN;
    print "Erzeugung von $einstellungen war erfolgreich";
}