#!/usr/bin/perl -w
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $sp1;
my $sp2;
my $sp3;
my $cgi = new CGI;
my $search = $cgi->param();

open(CSV, '<./test.csv') or die $!;
my @csvInhalt = <CSV>;
close(CSV);
chomp(@csvInhalt);

print $cgi->header(),
      $cgi->start_html('CGI-Feedback'),
      $cgi->h1('CGI-Feedback vom Programm ',$cgi->i('comments.pl'));
  foreach (@csvInhalt) {
    (my $sp1,my $sp2,my $sp3) = (split(/;/, $_) );  
      if($sp2<$search != $search < $sp3 ){
        print $cgi->strong('Datensatz:'),
          $sp1,
          $sp2,
          $sp3;
      }
  }
print $cgi->end_html();