diff --git a/perl/2015/1/problem.pl b/perl/2015/1/problem.pl
new file mode 100644
index 0000000..6af788a
--- /dev/null
+++ b/perl/2015/1/problem.pl
@@ -0,0 +1,19 @@
+open(FILE, "<", "../data/2015/1/input.txt") or die $!;
+
+my $read, $steps, $floor = 0;
+while (read FILE, $char, 1) {
+    $floor += 1 if $char eq "(";
+    $floor -= 1 if $char eq ")";
+}
+print "Part 1: $floor\n";
+
+seek FILE, 0, 0;
+$floor = $steps = 0;
+while (read FILE, $char, 1) {
+    $floor += 1 if $char eq "(";
+    $floor -= 1 if $char eq ")";
+    $steps++;
+    last if $floor < 0;
+}
+
+print "Part 2: $steps\n";
diff --git a/perl/bin/run b/perl/bin/run
new file mode 100755
index 0000000..9f40096
--- /dev/null
+++ b/perl/bin/run
@@ -0,0 +1,6 @@
+#!/usr/bin/env bash
+
+year=$1
+day=$2
+
+time perl ./$year/$day/problem.pl