#!/usr/bin/perl -w
#!C:/xampp/perl/bin/perl -w
#
#    This file is part of a perl tutorial
#
#    (C) Copyright 1999 Hans Kern
#
#    File name    : pldemo09.cgi
#    Created by   : Hans Kern
#    Creation date: 25.5.99
#

#    Datenausgabe

print "Content-type:text/plain\n\n";

$myfile="$ENV{DOCUMENT_ROOT}/showmap.txt";
local *MYFILE;
open MYFILE, "> $myfile" or die "$myfile existiert nicht!\n";
print MYFILE "hugo\n";
close MYFILE;

print "Es wurde in die Datei $myfile geschrieben.";