diff --git a/2015/04/coins.pl b/2015/04/coins.pl
new file mode 100644
index 0000000..448ac55
--- /dev/null
+++ b/2015/04/coins.pl
@@ -0,0 +1,13 @@
+use 5.20.0;
+
+my $s = shift;
+
+use Digest::MD5 qw/ md5_hex /;
+
+my $i = 0;
+
+$i++ until md5_hex( $s . $i ) =~ /^0{5}/;
+
+say $i;
+
+
diff --git a/2015/04/coins2.pl b/2015/04/coins2.pl
new file mode 100644
index 0000000..bd54dfa
--- /dev/null
+++ b/2015/04/coins2.pl
@@ -0,0 +1,13 @@
+use 5.20.0;
+
+my $s = shift;
+
+use Digest::MD5 qw/ md5_hex /;
+
+my $i = 0;
+
+$i++ until md5_hex( $s . $i ) =~ /^0{6}/;
+
+say $i;
+
+