my $length = 64;
local $/ = \$length;