open OUTFH, '>test.1.txt' or die "Couldn't write test.1.txt: $! ";
binmode OUTFH;
    $pop->HeadAndBodyToFile( OUTFH, 1 );
    close OUTFH;