Sign in
fuchsia
/
third_party
/
curl
/
refs/tags/curl-7_65_1
/
.
/
tests
/
server
/
base64.pl
blob: 449c3103abdd96366db468569f65e91cda62a32b [
file
] [
log
] [
blame
]
#!/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"
;
}