Added File Browser for Repository Scene

scripts/fake-editor-noblock

@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+
+use IO::Socket;
+
+$socket = IO::Socket::INET->new(PeerAddr => "127.0.0.1",
+                                PeerPort => 1234,
+                                Proto    => "tcp",
+                                Type     => SOCK_STREAM);
+
+# Send the length of the first argument as a byte.
+$socket->send(chr(length($ARGV[0])));
+# Send the first argument as a string.
+$socket->send($ARGV[0]);
+