Select Code to Download

#!/usr/bin/perl -w

...
print "WEEK: $temp[0]\n";

exit;

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