Added run.pl

jjl · Mar 21, 2010 · 8128186 · 8128186
1 parent f464ed5
commit 8128186
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/run.pl 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`;
+