use warnings; use strict; use MIME::Base64; sub mimencode($); my $inputstring = $ARGV[0]; my $outputstring = mimencode($inputstring); print "input:$inputstring\n"; print "output:$outputstring\n"; sub mimencode($){ my $in = shift; my $out = ''; $out = MIME::Base64::encode_base64($in); return $out; }