coyotlgw,

This seems strange to me. I pick these parts out of your code

use strict;
$sth->bind_columns( undef, \$uname, \$fname, \$fgroup, \$dmod, \$accts
+ );
[download]

I don't see you declaring any of these varibles with 'my'.

  my ($uname,$fname,$fgroup,$dmod,$accts);
[download]

Update: Removed a section based on chromatic's comments. Give that a whirl, and see what happens

Kristofer Hoch

Si vos can lego is, vos es super erudio