Select Code to Download

my $sth = $dbh->prepare(select * from table) or die "$DBI::errstr\n";
$sth->execute() or die "$DBI::errstr\n";
...
 {
 #do stuff with @array;
 }