#!/usr/bin/perl -w
use strict;

for (0..200)
{
   print "$_ buffered xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n";
   print STDERR "$_ unbuffered \n";
}