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