Select Code to Download

my $perpage = '25';
my $curpage = $q->param('curpage') || 1; # Assumes $q is a CGI object
...

my $dataref = $dbh->selectall_arrayref($select,{Columns=>{}}) || die '
+Whoops!';