Select Code to Download

my $dbh = DBI->connect(
   qw(DBI:vendor:database:host user pass),
   {RaiseError=>1}
);

my $sth = $dbh->prepare('select foo from bar');
$sth->execute();