while ( read( $file->fh, $buf, 1024 ) ) {
       $fc .=  $buf;
    }

     my @parts = (
     Email::MIME->create(
        attributes => {
         content_type => 'application/multipart',
         name  => 'report.doc',
         disposition  => 'attachment',
        },
        body => $fc,
     ),
     Email::MIME->create(
        attributes => {
        },
        body => 'Hello this is a test!',
      ),
     );

 $c->email(
     header => [
      To  => 'vsailas@gmail.com',
      Subject => 'A Sample Email for Attachment',
     ],
     parts => \@parts,
    );