if ($recordtype eq '$')
{
  print " record type: $recordtype\n";  
  print " data: $fragment\n";  
}
 #Inrement starting position for the next loop
 $currentpos += $recordlength;