Perl Script for SSLStrip MITM Attack

I've been using SSLStrip MITM attack a lot recently and decided I am just sick of having to manually configure it so I decided to write a perl script to mostly do it for me or atleast consolidate it in 1 spot. Let me know what you guys think. If anyone notices any bugs let me know so that I can correct them, I've spent the last 2-3hrs testing so it's pretty good from what I can see right now. Nmap option is also included.

This is not a tutorial of how to do it, that is posted in another location in the intern0t forums.

Here are the things that are required for this script:
Linux (tested in Ubuntu & Backtrack 4 R2)
Ettercap (specifically etter.conf)
X-term (used b/c Ubuntu & BT4 both have it)
Arpspoof
SSLStrip
Nmap

**********Start of Disclaimer***********

I'm not responsible for anything illegal or mischievous that you decide to use this for blah, blah, blah...

Don't blame me, I didn't force you to use it.
**********End of Disclaimer************

Code: Download Here.

Hope this helps everyone, let me know if you have any suggestions. Thanks.
Note: For further reading.