Blame - ap/lib/libcurl/curl-7.54.1/tests/server/base64.pl - T106_DC - Gitiles

blob: 2eab1fa4dff48833e8787a79bde88657de7085c6 [file] [log] [blame]

lh	9ed821d	2023-04-07 01:36:19 -0700	[diff] [blame]	1	#!/usr/bin/perl
				2
				3	use MIME::Base64 qw(encode_base64);
				4
				5	my $buf;
				6	while(read(STDIN, $buf, 60*57)) {
				7	my $enc = encode_base64($buf);
				8	print "$enc";
				9	}