才开始接触linux+apache+perl+CGI

#!/usr/bin/perl
use DBI;
use CGI ':standard';
BEGIN{
use CGI::Carp qw(fatalsToBrowser carpout);
}
#$obj=new CGI;
if (param()){
$username=param('username');
}
$db=DBI->connect('DBI:mysql:sample_db;user=root');
$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();
print header(-type=>'text/html',-charset=>'gb2312');
print start_html(-title=>"第一个关于Mysql数据库的题目");
while(my @val=$sth->fetchrow_array()){
print "id=$val[0]";
print "user=$val[1]<br>";
}
print  end_html;
$sth->finish();
$db->disconnect();