open (PARSER_FILE, $inputfile) 
	or die "Couldn't open $inputfile for reading";
binmode(PARSER_FILE);
open (OUT_FILE, ">", $outputfile) 
	or die "Couldn't open $outputfile for writing";
binmode(OUT_FILE);
read(PARSER_FILE, $buff, 4)
.
.
print OUT_FILE pack(b33, 1, $buff);