regress/base/mime_encode.pl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/usr/pkg/bin/perl
#
# $FML$
#

use strict;
use lib qw(../../cpan/lib ../../fml/lib ../../im/lib);
use MIME::Base64;

my $buf = '';

while (<>) {
	$buf .= $_; 
}

print encode_base64($buf);

exit 0;