or download this
use DBI;
$dbh = DBI->connect("DBI:mysql:gds:localhost", "tools", "meep") or
+ die ("No love for the DBI connect");
...
my( $uname, $fname, $fgroup, $dmod, $accts );
$sth->bind_columns( undef, \$uname, \$fname, \$fgroup, \$dmod, \$a
+ccts ); # this is line 95