my  $email = Email::Stuffer->to('Simon Cozens<simon@somewhere.jp>')
    ->from('Santa@northpole.org')
    ->text_body("You've been good this year. No coal for you.")
    ->attach($getMessage_obj->getFileData,content_type => 'image/anc',
					disposition  => "anc",
					name         => 'image.anc',
					Id => 'anc-id')
     ->email;

my $email_str = $email->as_string;

print $email_str;

##</code><code>##

...
--1394297894.A8F240.2176
Date: Sat, 8 Mar 2014 16:58:14 +0000
MIME-Version: 1.0
Content-Type: image/anc; name="image.anc"
Content-Transfer-Encoding: base64
Content-Disposition: anc

iVBORw0KGgoAAAANSUhEUgAAABEAAAARCAYAAAA7bUf6AAAAAXNSR0IArs4c6QAAAAlwSFlzAAAO
...