@csvInhalt = <CSV>;
close(CSV);
chomp(@csvInhalt);

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

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

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