Sign in
fuchsia
/
third_party
/
curl
/
2d47224e1cf9fc932541b8f3c34f6c86c009756c
/
.
/
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"
;
}