open FILE, "file.bin" or die;
binmode(FILE);

	while ($ch = getc(FILE)){
	$temp = ord($ch);
	print "$temp\n";
	}
close FILE;