A side note: The script doesn’t use strict. When I added this, it uncovered two errors in sub error1:

1. The variable $sitename is not defined.

2. In the line:

   print MAIL "To: info@email.com\n";
   [download]

   the @ symbol is not escaped, meaning the (non-existent) array @email will be interpolated, producing: To: info.com.

Moral: Always use strict !

Hope that helps,