Select Code to Download

my $sth = $dbh->prepare(<<SQL) or die $dbh->errstr;
select count(*) from userlist
...
SQL

$sth->execute;

my $sth = $dbh->prepare(<<SQL);
select count(*) from userlist
...
SQL

$sth->execute($FORM{email});