#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = CGI->new();
print $cgi->header();

my $linkfile = '/path/to/file.links';

my $url = $cgi->param('AnwenderName');
my $text = $cgi->param('Kommentartext');

$text =~ s/\r?\n/<br>/sg;

open(my $fh,">>",$linkfile) or die $!;
print $fh $url,"\n",$text,"\n";
close $fh or die $!;

print $cgi->b('Link wurde eingetragen');