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]",
                           ;