Help for this page
1,apple,2005 2,banana,2002 3,peach,2001 4,apple,2002 5,nuts,2008
#!/usr/bin/perl -w use strict; ... while ( my $row = $sth->fetch ) { print "@$row\n"; }
apple,2005 apple,2002