Select Code to Download

my $dbh = DBI->connect(
   'connect string','user','pass',
   {RaiseError=>1, HandleError => \&bail_out},
};

my $sth = $dbh->prepare("select * from foo");
$sth->execute;
...
      
   ]
);