1 files changed, 18 insertions, 0 deletions
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;