Haha, I guess it needs this:

use IO::Handle;
my $toilet = new IO::Handle;
$toilet->autoflush(1);
[download]

It's an auto flushing toilet handle. :)

-Matt