How long does the script run?

There is only one loop in the script and it should run very quickly unless the hosts file is huge. The remainder of the script ought to be I/O bound, although a virus checker may gobble up chunks of cpu depending on how it is configured.

You could insert a few print statements for light weight profiling or trot out Devel::SmallProf to get a handle on where the time is going.