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