Select Code to Download

#!/usr/bin/perl -w
# dump.pl
...
 VALUES ('4','Sales','1');
INSERT INTO department (dept_code,dept,sort_order) 
 VALUES ('5','Development','3');

while (my $row = $sth->fetchrow_arrayref()) {
    print  join( ",", map( {"\"$_\""} @$row)), "\n";
}

print join("\t", @$row),"\n";

 _  _ _  _  
(_|| | |(_|><
 _|