diff --git a/src/Maths/PerfectNumber.hs b/src/Maths/PerfectNumber.hs
new file mode 100644
index 0000000..c8c2001
--- /dev/null
+++ b/src/Maths/PerfectNumber.hs
@@ -0,0 +1,11 @@
+module Maths.PerfectNumber where
+
+sumList :: [Int] -> Int
+sumList [] = 0
+sumList (x:xs) = x + sumList xs
+
+perfectNumber :: Int -> Bool
+perfectNumber num = sumList [ x | x <- [1 ..  num -1], num `mod` x == 0] == num
+
+main = do
+    print (perfectNumber 6)
\ No newline at end of file