Select Code to Download

sub db_execute {
    my(@return,@a,$cursor);
...
        return (@return);
    }
}

my $SQL =  "select a,b,c from table";
my @lines = db_execute($SQL);
while( ($a,$b,$c) = @lines ){
     ..
}