use MIME::Base64;


      $decoded = decode_base64($record);