use Mail::Sendmail qw(sendmail %mailcfg);

$mailcfg{debug} = 6;