in reply to Net::SMTP - too much delay...

This code is why there is so much spam. You have just let anyone in the world send email to anyone else.

You don't Taint check, no warnings, no strict

As for your answer use the debugger step through the code then find out where the delay is. As soon as you know where it is - Stop running this script and save us all a little spam