Select Code to Download

my $sql = "SELECT * FROM test";
my $sth = $dbh->prepare($sql) || die "Couldn't prepare $sql: $sth->err
+str";
                                                                      
+                                                                     
+                     while ( @row = $sth->fetchrow_array ) {
    print "@row\n";
  }