#!/usr/local/bin/perl
#
# Copyright (C) 1993-1998 Ken'ichi Fukamachi
#          All rights reserved. 
#               1993-1996 fukachan@phys.titech.ac.jp
#               1996-1998 fukachan@sapporo.iij.ad.jp
# 
# FML is free software; you can redistribute it and/or modify
# it under the terms of GNU General Public License.
# See the file COPYING for more details.
#
# $Id: base64encode.pl,v 1.2 1999/07/05 03:07:38 fukachan Exp $
#

require 'getopts.pl';
&Getopts("dI:");

$libdir = $0; 
$libdir =~ s/base64encode.pl//;
push(@INC, "$libdir/../");

if ($opt_I) {
    for (split(/:/, $opt_I)) { push(@INC, $_);}
}

require 'mimew.pl';

undef $/;
$body = <>;
print &bodyencode($body);
print &benflush;

1;
