Select Code to Download

foreach my $n (1..1000) {
 $x=.5*$n*($n+1);
 print $x;
}

#!/usr/bin/perl
use strict;
...
 } until $x > $num;
 return 0;
}