Select Code to Download

$ perl -e '
use strict;
...
my $x;
print $x;'
Use of uninitialized value in print at -e line 5.

$user = $dbh->quote( $user );
my ( $field, $sub_parent ) = $parent eq 'Father'
...
    {
        $sth = $dbh->prepare ("select max(Number) from Volunteer where
+ Date = ? and Volunteer = 'TBD'");
        $sth->execute ($date );

$sth = $dbh->prepare ("select Mother from Roster where User = \'$user\
+'");