diff --git a/src/core/control.pm b/src/core/control.pm
index 60c9648..7007ae2 100644
--- a/src/core/control.pm
+++ b/src/core/control.pm
@@ -164,8 +164,16 @@ sub exit($status = 0) {
     $status;
 }
 
-sub run(*@) {
-    die 'run() is not yet implemented, please use shell() for now';
+sub run (*@args ($, *@)) {
+    my $error_code =
+        pir::spawnw__IP(
+            nqp::getattr(
+                @args.eager,
+                List,
+                '$!items'
+            )
+        ) +> 8;
+    $error_code but !$error_code;
 }
 
 sub shell($cmd) {
-- 
1.7.9.5