#!/usr/bin/perl
#$Id: nonzerogigabytes,v 1.12 2019-11-02 19:45:28+01 czyborra Exp czyborra $
$byte=0; $buffer = $zeroes = '\0' x 4096;
while(sysread (STDIN, $buffer, 4096) )
{
	if($buffer eq $zeroes )
	{
		$byte += 4096;
		print "-" if $byte == (($byte >>30)<<30);
	}
	else
	{
		print "#";
		$byte=(($byte >>30)+1)<<30;
		sysseek(STDIN, $byte, SEEK_SET) || exit();
	}
}