First, I have to ask why you are using backticks. That just slows things down:

    my ( $day, $month ) = (localtime(time))[3,4];
    $month++;
[download]

I don't see enough from this snippet to see the problem. Further, I'm not sure what the problem is as you haven't actually described it. I am assuming that you mean your fetchrow_array statement isn't working. If so, did you set RaiseError => 1 when you instantiated your DBI object? Have you tried DBI->trace? There are a variety of things that could go wrong here.

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.