#!/usr/bin/perl

use strict;
use warnings;
use String::Similarity;
use Text::Levenshtein qw(distance);
use DBI;
use Encode;
use CGI qw(:standard :html4);
use CGI::Carp qw(carpout fatalsToBrowser);

print "Content-type: text/html\n\n";
...
...