Select Code to Download

#! /usr/bin/perl

...
for (my $i = 0; $i <= 10; $i++) {
    print "$i\tgettimeofday = " . gettimeofday() . "\n";
}

0        gettimeofday = 1090220890.53125
1        gettimeofday = 1090220890.53125
...
8        gettimeofday = 1090220890.53125
9        gettimeofday = 1090220890.53125
10       gettimeofday = 1090220890.53125