Select Code to Download

$sth->execute ($lBOA_BLC_MASTER_ID) or die "Cannot execute: " . $sth->
+errstr();
%data = map { $_ => 1 } $sth->fetchrow();

$VAR1 = 'ABC';
$VAR2 = 1;