#!/usr/bin/perl -wT

use strict;
use CGI;

my $q = new CGI;

my $number_to_find = $q->param("number");

open DATA, "data.txt" or die "Can't open file: $!";

while (<DATA>) {
    chomp;
    my @fields = split /,/;

    if ($fields[0] eq $number_to_find) {
        print_to_browser(@fields);
    }
}

close DATA;


sub print_to_browser {
    my @data = @_;
    print $q->header("text/html"),
          $q->start_html("Error"),
	  $q->h1("Relevant Data"),
	  $q->p(@data),
	  $q->end_html;
}