Select Code to Download

$ perl -e'@f=qw/foo bar baz/;for (@f) {print;shift @f}'
foobaz$

while (@report = $sth->fetchrow_array()) {
    print SAVE join("\t", @report), $/;
}