perl -mMIME::Base64=encode_base64 -000e" print encode_base64( <> )" 
   < sample >sample.b64