Sign in
nest-open-source
/
nest-cam
/
4320010
/
curl
/
7e01bdb43756968ec46a7bdb4d65ecf50ae0bb18
/
.
/
curl
/
tests
/
server
/
base64.pl
blob: 2eab1fa4dff48833e8787a79bde88657de7085c6 [
file
] [
log
] [
blame
]
#!/usr/bin/perl
use
MIME
::
Base64
qw
(
encode_base64
);
my
$buf
;
while
(
read
(
STDIN
,
$buf
,
60
*
57
))
{
my
$enc
=
encode_base64
(
$buf
);
print
"$enc"
;
}