#! /usr/bin/perl

use strict;
use warnings;

my @array = qw(zeile1 zeile2 zeile3);

open(WRITE,">dateiname.txt") or die $!;
print WRITE $_,"\n" for(@array);
close WRITE;

my $cgi = CGI->new();
open (FH, ">", $outfile) or die $!;
$cgi->save(FH);
close (FH) or die $!;

open (IN, "<", $file) or die $!;
my $cgi = CGI->new(IN);
close(IN);

error.cgi?ec=$ec

script.cgi?feld0=$array[0];feld1=$array[1];feld2=$array[2]

#!perl -w
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use strict;

local ($\, $|) = ($/, 1);

my $q = CGI->new;

print $q->header;
print $q->start_html (-title => 'test');
print $q->p($q->url(-query_string=>1));
if ($q->param) {    # Parameter vorhanden -> Folgeaufruf
    print $q->table (
        {-border=>1},
        $q->caption ('Die folgenden Werte wurden als Liste übergeben:'),
        $q->Tr (map { $q->td($_) } $q->param('liste')),
    );
} else {    # Erstaufruf -> keine Parameter
    print $q->start_form ();
    print $q->hidden (-name => 'liste', -default => [ 5 .. 12, 'äöüß' ]);
    print $q->submit ();
    print $q->end_form;
}
print $q->end_html;