C<<1 va_list based print and echo commands finaly work

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

diff --git a/demos/performance/print.pl b/demos/performance/print.pl
new file mode 100755 (executable)
index 0000000..0cbdef1
--- /dev/null
+++ b/demos/performance/print.pl
@@ -0,0 +1,8 @@
+#!/usr/bin/perl
+
+my $i=0;
+for ($i=0;$i<10000000;$i++)
+{
+ print ("stuff");
+}
+