Sign in
nest-open-source
/
nest-learning-thermostat
/
5.1.8
/
curl
/
845360e92b1e3d9d2801bb78f4c319850ba4ff76
/
.
/
curl-7.25.0
/
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"
;
}