Select Code to Download

open(DATFILE, "<$datfilename") or die $!;
binmode(DATFILE); 
...
&ReadData ($profilelength); # read the second sequence
read (DATFILE, $_, 2, 0); # Read 2 bytes of the trailing zero
}