Mysql Connection

[Pankaj Kapare]

Hi,
I am trying to connect to MYSQL through my perl script.I am using windows 2000 and 
activeperl.
I am using Net::MySQL to connect with database.But it is giving error :
Couldn't connect to /tmp/mysql.sock: at E:\PERLTR~1\perl\VALIDA~1.PL line 12 
My script is as follows:
#!/usr/local/bin/perl
print "Content-type:text/html\n\n";
use Net::MySQL;


$DBHOST = "localhost";
$DBNAME = "sitebuilder";

$DBUSER = "sa";
$DBPASS = "";

my $mysql= Net::MySQL->new($DBHOST, $DBNAME ,  $DBUSER, $DBPASS);
$mysql->query(q{SELECT sLoginId,sFirstName,sLastName FROM userdetail});

my $record_set = $mysql->create_record_iterator;
  while (my $record = $record_set->each) {
      printf "First column: %s Next column: %s\n",
          $record->[0], $record->[1],$record->[2];
  }

Please Can u help me?
Thanks in advance!
Pankaj