#! /usr/bin/perl

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

my $cgi = CGI->new();
my %params = $cgi->Vars();
print $cgi->header(-type => 'text/html');

my $file = './data.txt';

open(R_FILE,"<$file") or die($!);
my @entries = <R_FILE>;
close R_FILE;

foreach(@entries){
 if($_ =~ /^$params{input_text_name}/){
   $_ = "";
 }
}

open(W_TXT,">$file") or die($!);
print $_ for(@entries);
close W_TXT;

print "Der Eintrag $params{input_text_name} wurde gelöscht";