Index: /trunk/Ohana/src/perl/src/cmp.header
===================================================================
--- /trunk/Ohana/src/perl/src/cmp.header	(revision 41)
+++ /trunk/Ohana/src/perl/src/cmp.header	(revision 42)
@@ -55,8 +55,15 @@
 
     my ($file) = $_[0];
-    my ($buffer, $done, @buffer, $line);
+    my ($ID, $buffer, $done, @buffer, $line);
 
     open (FILE, "$file");
+    read FILE, $ID, 8;
+    if ($ID eq "SIMPLE  ") { goto valid; }
+    if ($ID eq "XTENSION") { goto valid; }
+    close (FILE);
+    die "SUCCESS: $file is not a valid header file\n";
     
+valid:
+    seek FILE, 0, "SEEK_SET";
     $done = 0;
     @buffer = ();