my $msg = MIME::Lite->new( 
   
                           To      => "$emailsite",
                           From    => "$from",
                           Subject => "Contato >> $assunto",
                           Type    => 'text/html',
                           Data    => "$html" );

my $test = qq# $msg $emailsite $from $assunto $html #;                 
          
if ( is_tainted($test) ) { die "tainted"; } else { die "not tainted"; } # Dies "not tainted"

# $msg->send();