From 6ed7daadc03cfd0621cb41afdf11ad4aaf9eeae4 Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Fri, 19 Oct 2001 13:16:19 +0000
Subject: MIME decoder

---
 regress/base/mime_decode.pl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 regress/base/mime_decode.pl

diff --git a/regress/base/mime_decode.pl b/regress/base/mime_decode.pl
new file mode 100755
index 00000000..128961e5
--- /dev/null
+++ b/regress/base/mime_decode.pl
@@ -0,0 +1,18 @@
+#!/usr/pkg/bin/perl
+#
+# $FML: mime_encode.pl,v 1.1 2001/09/23 14:32:34 fukachan Exp $
+#
+
+use strict;
+use lib qw(../../cpan/lib ../../fml/lib ../../im/lib);
+use MIME::Base64;
+
+my $buf = '';
+
+while (<>) {
+	$buf .= $_; 
+}
+
+print decode_base64($buf);
+
+exit 0;
-- 
cgit v1.2.1