#!/usr/bin/perl -w

use strict;

use DBI;

my $dbh = DBI->connect('DBI:mysql:databasename','user','password') or die "Couldn't open database: ". DBI->errstr . "\n";

my $sth = $dbh->prepare("SELECT date_format(?,'%V')");
my $rc = $sth->execute('2003-01-5');
my @temp = $sth->fetchrow_array;
print "WEEK: $temp[0]\n";

exit;

##</code><code>##

my $sth = $dbh->prepare("SELECT date_format(?,'%v')");