use strict;
use warnings;

my $einstellungen = "Einstellungen.txt";
my $einstellungen_pfad = "D:\\Test\\$einstellungen";

format EXI =
Parameter1 = 1
Username: Ralf
.

if (-e $einstellungen_pfad){
    print "$einstellungen bereits vorhanden";
    <STDIN>
}else {
    open(EINSTELLUNGEN, ">$einstellungen_pfad");
    write (EXI);
    print "Erzeugung von $einstellungen war erfolgreich";
    <STDIN>
}