open(INFILE, "test.txt");
	binmode(INFILE);
	$filecontent = join('',<INFILE>);
	for($x = 0; $x<length($filecontent); $x+=8) {
		print pack('B8',substr($filecontent,$x,8));
	}
close(INFILE);