1#!/usr/bin/perl
2
3use MIME::Base64 qw(encode_base64);
4
5my $buf;
6while(read(STDIN, $buf, 60*57)) {
7    my $enc = encode_base64($buf);
8    print "$enc";
9}
10