#!/usr/bin/perl
use strict; use warnings;
my $daten = "Hallo Welt";
open (my $fh, '>', "output.txt") and print $fh $daten;