Select Code to Download

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