$_ = "Old buffer ";
sysread DATA, $_, 4, length;
print;
__DATA__
datadatadata