use MIME::Base64;
print encode_base64( join( ':', $username, $password ) );