Using Gedcom.pm

     my $ged = Gedcom->new(gedcom_file => $gedcom_file);

     my $i = $ged->get_individual("Paul Johnson");

     my $b = $i->birth;

     my $d = $b->date;
     my $p = $b->place;

     my $bd = $i->get_value("birth date");
     my $bp = $i->get_value("birth place");

     my @sons = $i->sons;

Read the docs (or the code)