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

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