fwrite test added

[svn/Cll1h/.git] / demos / performance / print.pl

#!/usr/bin/perl

my $i=0;
for ($i=0;$i<10000000;$i++)
{
 print ("stuff");
}