Not everyone likes to compile libcurl. It is very boring and time comsuming. Using a compiled libcurl can save some time. So I downloaded Win32 Generic libcurl compiled by Günter Knauf from http://curl.haxx.se/download.html . The link is http://www.gknw.net/mirror/curl/win32/curl-7.18.2-devel-mingw32.zip . I guess it is compiled by MinGW.

If you try to perl Makefile.PL and make, of course it would fail. So I change something in Makefile.PL.

1. Comment “requires_external_bin       'curl-config'“, that means add a “#”
before the line;
2. Comment /usr/include, /usr/local/curl/include, /usr/local/include/curl, ../../include, ../curl/include in “my @includes“;
3. Change “C:\\INCLUDE\\CURL” in “my @includes” to the directory like “E:\\Perldev\\downloader\\curl-7.18.2-devel-mingw32\\include“. E:\\Perldev\\downloader is the directory where you decompress the curl-7.18.2-devel-mingw32.zip to;
4. Comment “my $cflags = `curl-config --cflags`“, “my $lflags = `curl-config --libs`“, “my $libcurl_version = `curl-config --version`” and “print "version is $libcurl_version"“;
5. Add these lines to the place where step 4 does:

my $cflags = '-I"E:\\Perldev\\downloader\\curl-7.18.2-devel-mingw32\\include"';
my $ldflags = '-L"E:\\Perldev\\downloader\\curl-7.18.2-devel-mingw32\\lib"';
my $lflags = '-lcurl -lcurldll';

6. Comment these lines:

if (!defined($lflags)) {
$lflags="-lcurl";
# Windows version of libcurl - not widely tested, feedback welcome!
if ($^O eq 'MSWin32') {
foreach my $try (@includes) {
if (-f $try . '\lib\libcurl_imp.lib') {
$lflags = $try . '\lib\libcurl_imp.lib' unless(-f $lflags);
last;
}
}
$lflags="libcurl.lib" unless ($lflags);
}
print "Guessing your linker flags as: $lflags\n";
}

7. At the end of this file, please change “'LIBS'         =>$lflags”
to “'LIBS'         =>"$ldflags $lflags"“;
8. Save the file;
9. perl Makefile.PL;
10. nmake (you need nmake from Mircosoft, which can be downloaded from
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q132084 );
11. nmake install.

OK, it’s done.

use DBI;
use warnings;
use strict;
use utf8;
use bytes;

my $dbh = DBI->connect("DBI:mysql:database=yourdatabase;host=yourhost",
			"username", "password",
			{'RaiseError'=>1, 'mysql_enable_utf8'=>1})
			|| die "Cannot connect to database:".DBI->errstr;
my $sth=$dbh->prepare('SELECT * FROM onetable');
$sth->execute()||die "An error occurs while querying: ".$sth->errstr;
while(my @data=$sth->fetchrow_array()){
	for my $i(0..$#data) {
		print "$data[$i]\\t";
	}
	print "\\n";
}
$dbh->disconnect();

% $r->content_type('text/html; charset=UTF-8');

就可以了。

例如这是个最简单的index.html文件：
% $r->content_type('text/html; charset=UTF-8');
% my $planet = "世界";
你好，<% $planet %>！