Select Code to Download

                SELECT animal
                FROM animals
                WHERE size = 'Big'

my $sth = $dbh->prepare(qq{
                SELECT animal
                FROM animals
...
                });

$sth->execute('Big') or die "Cannot execute: " . $sth->errstr();