#!/usr/bin/perl

use MIME::Base64;

open( my $spamd_fh, '<', 'spamd.patch' );
local $/;
my $spamd_patch = readline($spamd_fh);
close($spamd_fh);

my $x = encode_base64($spamd_patch);
$x =~ s/\n//g;
print $x;