#!/usr/bin/perl

use warnings;
use strict;

open(DATEI, ">Datei.txt") or die $!;

print DATEI "Hello Perl-Community.de\n";

close(DATEI) or die $!;

1;