#!/usr/local/bin/perl

$filename = "/tmp/buffering.$$";

print "Content-type: text/plain\n\n";
print "$filename に ABC を書き込みます。\n";

open(OUT,">/tmp/buffering.$$");
print OUT "ABC\n";

print "$filename を表示します。\n";

open(IN,$filename);
print <IN>;
close(IN);

print "↑には何も出力されていないはずです。\n";

close(OUT);

print "close しました。\n";

print "再度 $filename を表示します。\n";

open(IN,$filename);
print <IN>;
close(IN);

print "今度は ABC と表示されたはずです。\n";

unlink($filename);