I would definitly separate the database connection thing from the reader/writer problem. Let code speak:

use Connect qw( autoconnect );
use Resource;

# displays dialog and saves answer in ./main.dbh.ac
my $dbh = autoconnect();
#could also use dbi => $connection_string here
my $dbr = resource( type => 'perl/dbi', dbh = $dbh, table => 'users' )
+;
my $txt = resource( type => 'perl/csvxs', delimiter => ';', file => 'f
+oo.txt' );

#while ($_ = $dbr->reader->next ) { 
#  $txt->writer->out(@$_[0,1]) 
#}

while ($_ = $dbr->reader->nexth ) { 
  $txt->writer->out($_->{id}, $_->{name}) 
}
[download]