Select Code to Download

my $sth->prepare("exec DBname..stored_proc_name ?,?");
$sth->execute($var1,'var2');
...
while ($sth->fetchrow_hashref){.....
...
}

..spcode..
declare @var int
...
select @var as var_name_for_hash
end
..endofsp..