Remove "my" on line 000073 and you'll be fine:

$ diff bind_columns.pl.1 bind_columns.pl
52c52
< my $sth->bind_columns(\$name);
---
> $sth->bind_columns(\$name);

$ perl bind_columns.pl.1
"my" variable $sth masks earlier declaration in same scope at bind_col
+umns.pl.1 line 52.
Can't call method "bind_columns" on an undefined value at bind_columns
+.pl.1 line 52.

$ perl bind_columns.pl
   foo
   bar
[download]

You should also probably use warnings which will give you the additional warning "variable $sth masks earlier declaration in same scope" on the same line.

--
Andreas