[T106][ZXW-22]7520V3SCV2.01.01.02P42U09_VEC_V0.8_AP_VEC origin source commit
Change-Id: Ic6e05d89ecd62fc34f82b23dcf306c93764aec4b
diff --git a/ap/lib/libcurl/curl-7.54.1/tests/server/base64.pl b/ap/lib/libcurl/curl-7.54.1/tests/server/base64.pl
new file mode 100644
index 0000000..2eab1fa
--- /dev/null
+++ b/ap/lib/libcurl/curl-7.54.1/tests/server/base64.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/perl
+
+use MIME::Base64 qw(encode_base64);
+
+my $buf;
+while(read(STDIN, $buf, 60*57)) {
+ my $enc = encode_base64($buf);
+ print "$enc";
+}