in reply to Net::SMTP High Cpu Load

Could you please remove all the unnecessary bugs first by patching your script with strict and warnings, also see How do I post a question effectively?.
print+qq(\L@{[ref\&@]}@{['@'x7^'!#2/"!4']});

In Section Seekers of Perl Wisdom