Select Code to Download

sub father_of {
    my $find = shift;
...
print "The son is $son\n";
print "The father of $son is $father\n";
print "The father of $father is $grandfather\n";

open(DAT,$data_file) || die "Couldn't open file":
foreach(<DAT>) {
...
my $son = 1045316419;
my $father = $fathers{$son};
my $grandfather = $fathers{$father};