curl/tests/server/base64.pl

#!/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";
}
scripts: allow all perl scripts to be run directly - Enable execute permission (chmod +x) - Change interpreter to /usr/bin/env perl Closes https://github.com/curl/curl/pull/2222 2018-01-07 01:34:46 -05:00			`#!/usr/bin/env perl`
utility to base encode data passed on stdin 2004-11-29 07:09:05 -05:00
			`use MIME::Base64 qw(encode_base64);`

			`my $buf;`
			`while(read(STDIN, $buf, 60*57)) {`
			`my $enc = encode_base64($buf);`
			`print "$enc";`
			`}`