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 => 'foo.txt' );

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

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