syswrite 使う？もっといい手もありそうだけど。

my $len_head = length ( my $head = 'good ' );
syswrite STDOUT, $head , $len_head ;
sleep 10 ;
print 'morning' . "¥n" ;

「 print 」はバッファに溜め込むんだよね。