my $fhandle = IO::Handle->new();
if (!$fhandle->fdopen(*STDERR, "a"))
{
die("Error: Unable to open \"err\" file handle: $!\n");
}
$fhandle->autoflush(1);
$fhandle->blocking(0); 

In a:
while ( <STDIN> )
{
doIt($_);
}