cgiでファイルを検索してhtmlにその検索結果を表示するにはどうすればいいですか？

cgiでファイルを検索してhtmlにその検索結果を表示するにはどうすればいいですか？以下のようなスクリプトを書いて、あとはindex関数とsubstr関数を使ってそれを行おうとしているのですが以下のスクリプトでエラーが出ます。どなたかよろしくお願いします。

#!C:/Perl64/bin/perl

use strict;
use warnings;

use utf8;
use CGI;
$query = new CGI;
use CGI qw(:standard);
use File::Copy;

#binmode STDIN, ':utf8';
#binmode STDOUT, ':utf8';
#binmode STDERR, ':utf8';

#use strict;
#use warnings;
#use DBI;
#use DBD::SQLite;
#追加use
#use utf8;
#use CGI;
#$query = new CGI;
#use CGI qw(:standard);
#use File::Copy;

#binmode STDIN, ':utf8';
#binmode STDOUT, ':utf8';
#binmode STDERR, ':utf8';

#use strict;
#use warnings;
#追加use終了

#binmode STDIN, ':encoding(cp932)';
#binmode STDOUT, ':encoding(cp932)';
#binmode STDERR, ':encoding(cp932)';

$syouhinkensaku = $query->param('syouhinkensaku');

my $dir = "syouhin";
chdir $dir
  or die "Cannot change working directory $dir: $!";

my @file = glob "*";

#@syouhinfile=join(",", @file)"\n";

@syouhinfile=join(",", @file);

#$abc = "kensakuitiji.txt";
#open(OUT, ">> $abc") || die("ファイルを追記モードで開けませんでした");
#$msg2 = "@file\n";
#print OUT $msg2;
#close(OUT);

print "Content-type: text/html\n\n";
print<<"HTML";
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>検索ヒット</title>
</head>
  <body bgcolor="#000066" text="#ff0000" link="#0000ee" alink="#0000ee" vlink="#551a8b">
<form action="b5.cgi">
<form>
@syouhinfile<br>
<input type="submit" onclick="location.href'b5.cgi'" value="NEXT"><input type="reset" value="RESET">
</form>
<br>
<br>
</body>
</html>
HTML
exit;