eBookReaderSwitch/thirdparty/curl/tests/server/base64.pl

10 lines
156 B
Perl
Executable File

#!/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";
}