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