#!/usr/bin/perl
use strict;
use warnings;

my $filename='/pfad/zur/datei.txt';
open(my $handle,'>', $filename) or die "Fehler open $filename ($!)";
print $handle "Etwas Text\n";
close($handle);