open NUL, "<", File::Spec->devnull();
sysread( NUL, $string, 2**19-length($string), length($string) );
close NUL;