Help for this page

Select Code to Download

Select or download this

use DBI;
my $dbi = DBI->connect(...);
...
print "r1 = $r1\n";
my $r2 = select_scalar($dbi, $q2);
print "r2 = $r2\n";

Select or download this
```
q1 eq q2? yes
r1 = 1
r2 =
```