use strict;
use Dumpvalue;
use POSIX;

sub dump_ref  {
    my $ref = shift;
    my $dumper = new Dumpvalue;
    print "Content-Type:text/html\n\n";
    print "<pre>";
    $dumper->dumpValues($ref);
    print "</pre>";
    exit;
}

# read in the 3D info.
# use unpack to parse the structure
my ($block1, $block2);
open(FP, "<./file.pf") || die("Error opening file: $!\n");
binmode(FP);
read(FP, $block1, 512); # 512 byte binary c structure

# Note that the longs are in Network order
my @block1_info = unpack("a64a128a8NNfNNNNffNd16NNNfffN30",$block1);

dump_ref(\@block1_info);
exit;