my $msg = MIME::Lite->new(
                 From    =>$cfg->Email,
                 To      =>$cfg->To,
                 Subject =>$cfg->Subject,
		 Filename => 'test.pgp',
                 Type    =>'application/pgp-encrypted',
                 Encoding => 'binary',
		Data => $body_encrypted,
		Disposition => 'attachment'
                 );