Select Code to Download

#!/usr/bin/perl
use warnings;
...
$verify->execute;
my @row;
say "@row" while @row = $verify->fetchrow_array;

#!/usr/bin/perl
use warnings;
...
$verify->execute;
my @row;
say "@row" while @row = $verify->fetchrow_array;