1 files changed, 5 insertions, 0 deletions

diff --git a/1.pl b/1.pl
new file mode 100755
index 0000000..85a8faa
--- /dev/null
+++ b/1.pl
@@ -0,0 +1,5 @@
+#!/usr/bin/perl
+use warnings;
+
+$t+=(!($_%5&& $_%3)?$_:0)for(1..999);
+print "$t\n";