Select Code to Download

@ary = @{$dbh->selectcol_arrayref($sql)};

#!/usr/bin/perl -w
use strict;
...
# But this one dies!
my @ary = @{$dbh->selectcol_arrayref($sql)} or die $dbh->errstr, $!;
print for @ary;

No such file or directory at ./dbtest.pl line 17.