Select Code to Download

    $SQLBuy = $dbh_metro->prepare("SELECT * FROM BuyersSellers WHERE F
+ileNumber ='".$filenumber."'");
    $rv = $SQLBuy->execute;
...
        $SQLPEOPLE->finish;
        undef $SQLPEOPLE;
    }

        foreach $buysell (@BuySellHashref) {
            if (${$buysell}->{BuyerORSeller} =~ /BUYER/i) {
                print qq|<TR CLASS=$class><TD>$buysell->{PersonID}->{L
+astName}</TD></TR>|;
            }
        }

$VAR1 = \{
            'FileNumber' => '01-0001',
...
            'BuyerSellerID' => '01-0001Bjoesmith',
            'BuyerORSeller' => 'BUYER'
          };