{
    my %rec = (
        name => undef,
        email => undef,
    );
# line 3 foo.pl
    my $sth = $dbh->prepare( "SELECT name, email from ... where DIAPER=?" );
# line 3 foo.pl
    $sth->execute( $quality );
    
    $sth->bind_col(1, \$rec{name});
    $sth->bind_col(2, \$rec{email});
    
    while( $sth->fetchrow_arrayref ){
# line 4 foo.pl
        print "$rec{name} < $rec{email} >\n";
    }
}
# line 7 foo.pl