Commit 09717d3f authored by Daniel Stenberg's avatar Daniel Stenberg
Browse files

utility to base encode data passed on stdin

parent 81a3246a

tests/server/base64.pl

0 → 100644
+9 −0
Original line number Diff line number Diff line 
#!/usr/bin/perl



use MIME::Base64 qw(encode_base64);



my $buf;

while(read(STDIN, $buf, 60*57)) {

    my $enc = encode_base64($buf);

    print "$enc";

}