tests/server/base64.pl

   1 #!/usr/bin/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 }