Select Code to Download

$myvar="location.location_code = '${l}' "

my $dbh = DBI->connect('DBI:Oracle:','user', 'pass', { RaiseError => 1
+ }) or die "Could not connect to Oracle backend: $DBI::errstr";
        
...
        my $sth = $dbh->prepare($query) || die "Failed preparing the q
+uery. WTF?";
        
        my $retcode = $sth->execute;