#!/usr/local/bin/perl
#
# timing test perl interpreter

for (my $i=0; $i < 1000000000; $i++) { }