summaryrefslogtreecommitdiff
path: root/tests/server/base64.pl
blob: 449c3103abdd96366db468569f65e91cda62a32b (plain)
1
2
3
4
5
6
7
8
9
#!/usr/bin/env perl

use MIME::Base64 qw(encode_base64);

my $buf;
while(read(STDIN, $buf, 60*57)) {
    my $enc = encode_base64($buf);
    print "$enc";
}