Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
$sth->execute($name);
my $arr = $sth->fetchall_arrayref;
print "@$_\n" for @$arr;