Help for this page

Select Code to Download

Select or download this

#!perl -w

...

print STDERR "Times: @times\n";
if (grep ((0 + $_) >= 99999999), @times) { die('Time values must be < 
+99999999'); }

Select or download this

>perl ptest.pl
Times: 1 2 3 4
Time values must be < 99999999 at ptest.pl line 9.
>