I think the 'local' line should be:
local $/ = \4096; # blocksize
That is we want a reference to 4096 to set the block size.