1 files changed, 36 insertions, 0 deletions
diff --git a/bin/reply b/bin/reply
new file mode 100644
index 0000000..ddd03e2
--- /dev/null
+++ b/bin/reply
@@ -0,0 +1,36 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+# PODNAME: reply
+
+use Reply;
+
+my $cfg = "$ENV{HOME}/.replyrc";
+
+my %args = (config => $cfg);
+if (!-e $cfg) {
+    print("$cfg not found. Generating a default...\n");
+    if (open my $fh, '>', $cfg) {
+        print $fh <DATA>;
+        close $fh;
+    }
+    else {
+        warn "Couldn't write to $cfg";
+        %args = ();
+    }
+}
+
+Reply->new(%args)->run;
+
+__DATA__
+script_line1 = use strict
+script_line2 = use warnings
+
+[Interrupt]
+[FancyPrompt]
+[DataDumper]
+[Colors]
+[ReadLine]
+[Hints]
+[Packages]
+[LexicalPersistence]