Select Code to Download

#!/usr/bin/perl

...
my $row = $sth->fetchrow_arrayref;
print "\n@$row\n";

$dbh->do("PRAGMA synchronous = OFF");