[sdlgit/SDL_perl.git] / test / 64encode.pl

#!/usr/bin/perl

use MIME::Base64 qw/ encode_base64 /;

open FILE, "< $ARGV[0]" or die "$!\n";

while (read FILE, $buf, 60*57) {
	print encode_base64($buf);
}
Commit	Line	Data
bfd90409	1	#!/usr/bin/perl
	2
	3	use MIME::Base64 qw/ encode_base64 /;
	4
	5	open FILE, "< $ARGV[0]" or die "$!\n";
	6
	7	while (read FILE, $buf, 60*57) {
	8	print encode_base64($buf);
	9	}