Created by www.tryperl.com.

ProjectEuler01.pl

#Created by tryperl.com

#If we list all the natural numbers below 10 that are multiples of 3 or 5, we get 3, 5, 6 and 9. The sum of these multiples is 23.
#Find the sum of all the multiples of 3 or 5 below 1000.

# http://projecteuler.net/problem=1
use strict;
use warnings;

my $i = 1000;
# my $i = <>; # You do this as pass a number into the STDIN tab :D
my $sum = 0;
while($i-- != 0) {
    if( ($i % 5 == 0) or ($i % 3 == 0) ) {
        $sum += $i;
    }
}

print "Answer : $sum";
#Answer should be 233168