10128fe4043cdbb72cc0c5b8f817749e3f89a7b36Elliott Hughes#!/usr/bin/env perl 2e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET 3e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNETuse MIME::Base64 qw(encode_base64); 4e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET 5e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNETmy $buf; 6e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNETwhile(read(STDIN, $buf, 60*57)) { 7e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET my $enc = encode_base64($buf); 8e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET print "$enc"; 9e6cd738ed3716c02557fb3a47515244e949ade39Bertrand SIMONNET} 10