mysql:4132

田中です。

下記のようなＰｅｒｌでのデータベースを操作するプログラムを作成したのですが、
フォームから送信したデータがデータベースに挿入されなくて困っています。
どなたか下記のプログラムのどこが悪くてデータベースに挿入されないのかお教えく
ださい宜しくお願い致します。

#!perl

require"jcode.pl";

use DBI;
use CGI_Lite;

my($dns) = "DBI:mysql:shopping:localhost";
my($username) = "root";
my($password) = "aaaa";
my($dbh,$sth);
my(@ary);

$RemoteUser=$ENV{'REMOTE_USER'};

$cgi=new CGI_Lite();
%in=$cgi->parse_form_data();
print"Content-type: text/plain\n\n";

#新規登録処理
if($in{'mode'} eq 'new'){
 &Error("記入漏れがあります。") unless $in{'kategorii'};

 #ここではEUCコードでデータを挿入してみる事にする。表示はSJISを利用
 $kategorii=$in{'kategorii'};
 &jcode'convert(*kategorii,"euc");

 $dbh = DBI -> connect ($dns,$username,$password) or &Error("データベースへ
アクセスできません。");

 $sth = $dbh->prepare(qq{insert into kaimono (kategorii)
values("kategorii")});

 $sth -> execute() or &Error("MySQL INSERT コマンドを実行できません。");

 $sth -> finish();
 $dbh -> disconnect();
}#新規登録処理はここまで

  $dbh = DBI -> connect ($dns,$username,$password) or &Error("データベースへ
アクセスできません。");

  $sth = $dbh->prepare(qq{select * from kaimono});

  $sth -> execute() or &Error("select * from kaimonoを実行できません。");

  $sth -> finish();
  $dbh -> disconnect();


print "content-type: text/html\n\n";
print<<"__HTML__";
<html><head><title>ショッピング管理ページ</title></head>
<body text="#44444" bgcolor="#ffffff">
<table width="32%" border="0" cellspacing="1" cellpadding="1"
align="center">
  <tr>
    <td>
      <h2 align="center">◆ショッピング管理ページ◆</h2>
    </td>
  </tr>
</table>
<br>
<br>
<form method="post" action="kaimono.cgi">
  <table width="70%" border="3" cellspacing="4" cellpadding="5"
align="center">
    <tr>
      <td width="21%" bgcolor="#99CCFF">
        <div align="center"><font size="3"><b>カテゴリー</b></font></div>
      </td>
      <td width="79%" bgcolor="#FDF9C1">
        <select name="kategorii">
          <option>映像機器</option>
          <option>記憶装置</option>
          <option>ディスプレイ</option>
          <option>ネットワーク機器</option>
          <option>入力装置</option>
          <option>ＰＣ本体</option>
          <option>プリンター</option>
          <option>音声機器</option>
          <option>ソフト</option>
          <option>スキャナー</option>
        </select>
      </td>
    </tr>
  <input type="hidden" name="mode" value="new">
    <tr>
      <td colspan="2">
        <div align="center">
          <input type="submit" name="Submit" value="商品登録">
        </div>
      </td>
    </tr>
  </table>
</form>
__HTML__

sub Error{
#print "content-type: text/html\n\n";
print $_[0];
print qq(<br><a href="javascript:history.back(1)">戻る</a>);
exit;
}

解りにくいプログラムで申し訳ございませんが宜しくお願いいたします。