Select Code to Download

my $statement = <<'__SQL__';
SELECT *
...

my $rv = $sth->execute($client)
     or die $sth->errstr;

SELECT *
   FROM t_user_portal
   WHERE f_client = 'lanx'

PREPARE stmt1 FROM 'SELECT * FROM t_user_portal WHERE f_client = ?';
SET @client = 'lanx';
EXECUTE stmt1 USING @client;