Select Code to Download

if ($recordtype eq '$')
{
...
}
 #Inrement starting position for the next loop
 $currentpos += $recordlength;