my $ubound = 1e7;   # set this to change the upper bound for graphing; [choroba]'s would be 1e8.
    print {$gp} join "\n", 'set term png;',
                           'set output "measure.png";',
                           'set key left;',
    #                      'set logscale x;',
                           "set xrange [10:$ubound]",
                           ;

##</code><code>##

    for my $n (10, 100, 1e3, 1e4, 1e5, 1e6, 2.5e6,
               5e6, 7.5e6, 1e7, 2.5e7, 5e7, 7.5e7, 1e8
    ) {
        print STDERR "$n\n";
        for my $lang (sort keys %run) {
            $time{$n}{$lang} = measure($run{$lang}, $n, prepare($lang, $n));
        }
        $time{$n}{linear} = 7e-8 * $n + 1e-6;       # [pryrt] added this perfect mathematical line: y = mx + b  # Anonymous Monk should use 7e-7 instead of 7e-8
    }
    $run{linear} = undef;                           # [pryrt] added so that plot() below will include 'linear'