utility to base encode data passed on stdin

1 files changed, 9 insertions, 0 deletions

diff --git a/tests/server/base64.pl b/tests/server/base64.pl
new file mode 100644
index 000000000..2eab1fa4d
--- /dev/null
+++ b/tests/server/base64.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+
+use MIME::Base64 qw(encode_base64);
+
+my $buf;
+while(read(STDIN, $buf, 60*57)) {
+    my $enc = encode_base64($buf);
+    print "$enc";
+}