Select Code to Download

        }
        if ( $x =~ m/^Patient/ ) {
...
        dump_members($obj);
    }
}

$ perl -MO=Deparse test.pl
BEGIN { $^W = 1; }
...
    }
}
test.pl syntax OK