#!/usr/bin/perl

use strict;
use warnings;

print ("Content-type: text/html\n\n");

sub function1 {

         my $FILE;
         open $FILE, ">>", "datei.txt" or die $!;
         print $FILE "TEXT\n";
         close ($FILE) or die $!;

}

&function1;

########################
# Ausgabe Datei: datei.txt
# TEXT
# TEXT
# TEXT