#!/usr/bin/perl

$tot = 0;

for ($i = 3; $i < 1000; $i++) {
  if (($i % 3 == 0) || ($i % 5 == 0)) {
    $tot+= $i;
  }
}

print $tot . "\n";