test/64encode.pl

   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 }