perl+CGI+Mysql的添加显示数据程序

#!/usr/bin/perl


use DBI;
use CGI ':standard';
BEGIN{
        use CGI::Carp qw(fatalsToBrowser carpout);
}

$db=DBI->connect('DBI:mysql:sample_db;user=root');
print header(-type=>'text/html',-charset=>'gb2312');
print start_html(-title=>"第一个关于Mysql数据库的题目");
        if (param()){
        $username=param('username');
        $sth=$db->prepare("insert into test set user= ? ")
        or die "Can't prepare sql statement".DBI->errstr;
        $sth->execute($username);
        $sth=$db->prepare("select * from test ")
        or die "Can't prepare sql statement".DBI->errstr;
        $sth->execute();
        if($sth->rows==0){
                print "No date";
                exit;
        }
        while(my @val=$sth->fetchrow_array()){
                print "id=$val[0]";
                print "user=$val[1]
";
                }
        $sth->finish();
        $db->disconnect();
        }
        else{
        print p("Sorry!");
        }
print end_html;