Dateiausgabe mit CGI

$ARTICLE = 100;
    open ARTICLE or die "Can't find article $ARTICLE: $!\n";
    while (<ARTICLE>) {...




    open(LOG, '>>/usr/spool/news/twitlog'); # (log is reserved)
    # if the open fails, output is discarded




    open(DBASE, '+<dbase.mine')             # open for update
        or die "Can't open 'dbase.mine' for update: $!";




    open(ARTICLE, "caesar <$article |")     # decrypt article
        or die "Can't start caesar: $!";




    open(EXTRACT, "|sort >/tmp/Tmp$$")      # $$ is our process id
        or die "Can't start sort: $!";




    # process argument list of files along with any includes




    foreach $file (@ARGV) {
        process($file, 'fh00');
    }




    sub process {
        my($filename, $input) = @_;
        $input++;               # this is a string increment
        unless (open($input, $filename)) {
            print STDERR "Can't open $filename: $!\n";
            return;
        }




        local $_;
        while (<$input>) {              # note use of indirection
            if (/^#include "(.*)"/) {
                process($1, $input);
                next;
            }
            #...                # whatever
        }
    }