diff --git a/run.pl b/run.pl
new file mode 100644
index 0000000..3aaa13d
--- /dev/null
+++ b/run.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/env perl
+
+use FindBin '$Bin';
+
+$ENV{PERL5LIB} = "$Bin/deps/mouse/lib:$Bin/deps/mousex-nativetraits/lib";
+
+my $command = "$Bin/get_iplayer " . join(" ",map {"'" . $_ . "'"} @ARGV);
+`$command`;
+