blob: 981c58c9fa856b03e9241347d53c9629b4e39f13 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/usr/bin/env perl
#
# $FML: mime_decode.pl,v 1.1 2001/10/19 13:16:19 fukachan Exp $
#
use strict;
use lib qw(../../cpan/lib ../../fml/lib ../../im/lib);
use MIME::Base64;
my $debug = defined $ENV{'debug'} ? 1 : 0;
my $buf = '';
while (<>) {
$buf .= $_;
}
print decode_base64($buf);
exit 0;
|
